Массивы, паскаль. условие: задать случайным образом массив из интервала -50; 50 найти: 1)количество отрицательных элементов массива 2)сумму четных элементов 3)произведение элементов из интервала 1; 20

var k, i, n: integer ;

a: array [1..100]of integer ;

begin

write('введите кол-во элементов в массиве ') ;

read(n) ;

for i: =1 to n do begin

a[i]: =random(100)-50;

write(' ', a[i]) ;

end;

k: =0; writeln;

write ('кол-во отрицательных элементов ') ;

for i: =1 to n do begin

if a[i]< 0 then k: =k+1;

end;

write(k); k: =0;

writeln;

write ('сумма четных элементов ') ;

for i: =1 to n do begin

if a[i] mod 2=0 then k: =k+a[i];

end;

write(k) ; k: =1;

writeln ;

write('произведение элементов в интервале [1; 20] ');

for i: =1 to n do begin

if (a[i]> 0)and(a[i]< 21) then k: =k*a[i];

end;

write(k) ;

end.

var

  mas: array[0..19]of integer;

  a, b, c, e: integer;

begin

  for a : = 0 to 19 do mas[a] : = random(100) - 50;

//заполняем массив  

  for a : = 0 to 19 do if mas[a] < 0 then b : = b + 1;

//количество отрицательных элементов

  for a : = 0 to 19 do if mas[a] mod 2 = 0 then c : = c + mas[a];

//сумму четных элементов

  for a : = 0 to 19 do  

    case mas[a] of

      1..20: e : = e + mas[a];

    end;

//произведение элементов из интервала 1; 20    

  write(b, ' ', c, ' ', e);

end.

пометки после двух слешей в программе писать не нужно , и сам массив я сделал на 20 элементов

Пизанская башня, Эльфивая башня