Используя генератор случайных чисел заполнить массив размерностью 20 элементов числами из интервала [-20,+25] вывести список элементов в одну строку 1 найти сумму четных элементов 2 подсчитать количество элементов массива равных2 3 обнулить все положительные элементы массива

Var mass:array[1 ... 20] of integer;

var i:integer;

var sum: integer;

begin

Randomize;

sum:=0;

for i:=1 to 20 do begin

mass[i]:=Random (46) - 25; write (mass[i],' ') ;

end;

for i:=1 to 20 do

if (i mod 2 = 0) then

sum+=mass[i];

writeln ('Summa chetnih elementov: ', sum) ;

var kolTwo:integer;

kolTwo:=0;

for i:=1 to 20 do

if (mass[i] = 2) then

kolTwo+=1;

writeln ('Elementov = 2 - ', kolTwo) ;

for i:=1 to 20 do

if (mass[i] > 0) then

mass[i] : = 0;

writeln ('Noviy massiv ') ;

for i:=1 to 20 do

write (mass[i],' ') ;

end.