Question

12 чисел выбрасываются случайным образом -7 до 3.Подсчитать сумму отрицательных чисел и вывести на экран

Answer 1

program massiv;

var

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

i,k,n: byte;

begin

for i:=1 to 12 do begin

         a[i]:=random(11)-7;

         write(a[i]);

         write(' ');

         end;

k:=0;

for i:=1 to 12 do

    if a[i]<0 then begin

    k:=k+1;

    end;

writeln(' <0 ',k, ' chisel');

end.