Помогите пожалуйста!
дан массив B из K элементов. Определить будет ли максимальный элемент чётным.

1

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

2014-01-18T02:40:20+04:00
Program gt;
var b:array[1..100]of integer;
i,k,max:integer;
begin
read(k);
for i:=1 to k do
read(b[i]);
max:=b[1];
for i:=2 to k do
if(b[i]>max)then max:=b[i];
if(max mod 2=0)then writeln('yes')else writeln('no');
end.