Даны 5 чисел (могут быть и отрицательные и положительные), вывести нечетные числа,...

Question

Даны 5 чисел (могут быть и отрицательные и положительные), вывести нечетные числа, которые меньше нуля.

Написать программу Pascal ABC

Answer 1

Var a,b,c,d,e:integer;
begin
readln(a,b,c,d,e);
if (a mod 2<>0)and(a<0) then write(a);<br>if (b mod 2<>0)and(b<0) then write(' ',b);<br>if (c mod 2<>0)and(c<0) then write(' ',c);<br>if (d mod 2<>0)and(d<0) then write(' ',d);<br>if (e mod 2<>0)and(e<0) then write(' ',e);<br>end.

Пример:
-15 42 -10 27 -79
-15 -79

Comments

После then write(' ',b);

---

Что в кавычках ?

---

и в остальных (с,d,e)

---

' ' - пробел