Дан ряд из 7 целых чисел, в котором присутствуют чётные и нечётные числа.Найти наибольшее чётное число.

1

Ответы и объяснения

2014-03-22T10:04:11+00:00
Var a,i,n:integer;
begin
for i:=1 to 7 do begin
read(a);
if (a mod 2 = 0) and (a>n) then n:=a;
end;
writeln(n);
end.