90б! дано n целых чисел.вывести наибольшее четное.если - вопрос №936858290 от Semenbabinov3 18.06.2021 03:59

Question

Информатика: 90б! дано n целых чисел.вывести наибольшее четное.если четных нет, вывести слово no. во входном потоке в первой строке задано целое число n - количество элементов числовой последовательности (0 n 100). во второй строке через пробел перечислены значения элементов целочисленной последовательности. значения элементов по модулю не превышают 30000. в выходной поток вывести единственное целое число или слово no .

Semenbabinov3 · Answer

var n,a,max,i:integer;beginreadln(n);max:=-30001;for i:=1 to n do begin read(a); if (a mod 2=0)and(a max) then max:=a; end;if max -30001 then writeln(max)else writeln( No );end.Пример:5 12 65 74 87 6474...