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

SUPERMODEL SUPERMODEL    2   12.07.2019 19:00    0

Ответы
vitek0000 vitek0000  13.08.2020 15:22
Program p1;
Var i:integer;
      a:array[1..20] of integer;
Begin for i:=1 to 20 do
  begin
   a[i]:=random(-10,10);
   write(a[i],' ');
  end;
 writeln;
 for i:=1 to 20 do
  if a[i]<0 then write(a[i],' ');
End.

проверь работает или нет,нет возможности проверить просто
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика