Сколько слов здесь записано? Составь с ними словосочетания, поясняющие их значение. Хлопок, пироги, окуни, соли, пряди, срезал,

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 элементов