Составте программу, которая формирует массив из 16 случайных целых чисел от -20 до 20 и подсчитывает кол-во отрицательных чисел.

1

Ответы и объяснения

2011-12-04T17:18:50+04:00

var a : array [1..16] of longint;
    i,k : longint;
begin
  randomize;
  k:=0;
  for i:=1 to 16 do begin
                      a[i]:=random(41)-20;
                      if a[i]<0 then k:=k+1;
                      write(a[i],' ');
                    end;
  writeln;
  writeln(k);
end.