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

Question

Информатика

Марюта

17 мая, 18:43

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

+4

Ответы (1)

Знаете ответ?

Леонтьич · Answer 1

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.

Так?