Введите строку из 5 чисел компьютер должен определить отрицательные числа
Введите строку из 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.
Так?
Не нашли ответ?
Похожие вопросы