Помогите создать программу, чтобы нашло максимальное отрицательное число кратное 2. Заранее спасибо
Answers & Comments
yamori
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 a<c then c:=a; end; write ('ваше число ', c); end.
Answers & Comments
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 a<c then c:=a;
end;
write ('ваше число ', c);
end.