Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.

Так?