Введите строку из 5 чисел компьютер должен определить - вопрос №48539225 от Маргольц 15.12.2020 23:19

Question

Информатика: Введите строку из 5 чисел компьютер должен определить отрицательные числа

Маргольц · Answer

Var
  a:array[1..5] of integer;
  i:integer;
begin
  for i:=1 to 5 do readln(a[i]);
  for i:=1 to 5 do if a[i] < 0 then write(a[i],' ');
  writeln('- отрицательные');
  readln;
end.

Так?