Question

Задано четыре числа ввести в ответ только отрицательные числа из заданых
Язык програмирования паскаль
Даю 40 балов
Срочно

Answer 1

Ответ:

var

 a, b, c, d: integer;

begin

 writeln('Напишите четыре числа:');

 readln(a, b, c, d);

 if a < 0 then writeln(a);

 if b < 0 then writeln(b);

 if c < 0 then writeln(c);

 if d < 0 then writeln(d);

end.