Паскаль, 9й класс напишите решние

Паскаль, 9й класс напишите решние
Гость
Ответ(ы) на вопрос:
Гость
 var a: array [1..10000] of integer;      b,i:integer; begin  randomize;  b:=0;  for i:=1 to 10 do   begin      a[i]:=random(20)-10;      write(a[i],' ');      if a[i]>2 then b:=b+1;    end;  writeln;   writeln('Колличество элементов >2: ', b);  readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы