1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и полученную сумму.

2. Дан массив В (n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.

1.

Const N = 10;

Var i, S:integer; m:array [1 ... N] of integer;

Begin

randomize; S:=0;

for i:=1 to N do begin

m[i]: = random (201) - 100;

writeln (m[i]) ;

end;

for i:=1 to N do

if m[i] mod 2 = 0 then

S:=S+m[i];

writeln ('Summa = ', S) ;

readln;

end.

2.

Const N = 100;

Var i, p:integer; B:array [1 ... N] of integer;

Begin

randomize; p:=0;

for i:=1 to N do begin

B[i]: = random (201) - 100;

writeln (B[i]) ;

end;

for i:=1 to N do

if B[i] mod 3 = 0 then

p:=p*B[i];

writeln ('Proiz = ', p) ;

readln;

end.