Program gt; var n,i,max,l:integer; a:array[1..100]of integer; begin read(n); max:=0;l:=0; for i:=1 to n+1 do begin read(a[i]); if(abs(a[i]) mod 2=0)then l:=l+1; if((abs(a[i])mod 2=1)and(a[i]>max))or(max mod 2=0)then max:=a[i]; end; writeln(max); writeln(l); end.
Через поле и лесок Подается голосок. Он бежит по проводам - Скажешь здесь, А слышно там.-Телефон Под крышей — четыре ножки, А на крыше — суп да ложки.-Cтол Важных данных я хранитель, Информации носитель, Гибкая,так что же это? Я магнитная ?-Дискета.
Я блокнот и память я, Есть и электронная. Записи я все веду, Всё фиксирую и жду. книжка
Не пищу и не шуршу, А с компьютером-дружу. Я курсором управляю, И командам мышка
Осенью,я всех встречаю. Летом,просто отдыхаю. Весь учебный год-учу, Дарить знания хочу. школа P.S Если тебе понравилса ответ будь добр поставь лучший ответ.
var n,i,max,l:integer;
a:array[1..100]of integer;
begin
read(n);
max:=0;l:=0;
for i:=1 to n+1 do
begin
read(a[i]);
if(abs(a[i]) mod 2=0)then l:=l+1;
if((abs(a[i])mod 2=1)and(a[i]>max))or(max mod 2=0)then max:=a[i];
end;
writeln(max);
writeln(l);
end.