Question

Создать массив из 20 случайных элементов. Подсчитать в нем сумму нечетных отрицательных элементов и количество элементов, кратных 5. ПЖ НИД СРОЧНО!! паскаль

Answer 1

program raf105;

var  

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

 i,sum,kol: integer;

begin

for i:=1 to 20 do

begin

 a[i]:= random(-10,10);

 if (a[i] < 0) and (a[i] mod 2 <> 0)

   then sum+= a[i];

 if (a[i] mod 5 = 0)

   then kol+= 1;

 writeln(a[i]);

end;

writeln('Сумма нечётных отрицательных элементов: ',sum);

writeln('Количество элементов кратных пяти: ',kol);

end.

Язык PascalABC