Помогите создать программу, чтобы нашло максимальное отрицательное число кратное 2....

Question

Помогите создать программу, чтобы нашло максимальное отрицательное число кратное 2. Заранее спасибо

Comments

паскаль ? если да, то найти среди чего ? среди массива или среди введенных человеком чисел просто в цикле ?

---

Среди введённых чисел в цикле.

Answer 1

Program z123;
var i,a,n,c:integer;
begin
c:=0;
write ('введите, сколько чисел будет всего');
readln (n);
for i:=1 to n do
begin
readln (a);
if a mod 2 = 0 then
                       if aend;
write ('ваше число ', c);
end.

Comments

я проверил , работает

---

Спасибо большое!