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.