Задать случайный массив на интервале [-2;8].Найти количество положительных чисел .Нужна программа на PascalABC

1

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

2013-05-14T20:03:01+04:00

const nn=10;
var
A: array [1..nn] of integer;
i,k:integer;
begin
  Randomize;
  k:=0;
  for i:= 1 to nn do
  begin
    A[i]:=random(10)-2;
    write (A[i],' ');
  end;
  for i:= 1 to nn do if (A[i]>0) then k:=k+1;
  writeln;
  writeln(k);
end.