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

Question

Информатика

Машуха

24 января, 06:44

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

+5

Ответы (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.

Так?