For k: =1 to n do напишите программу, которая - вопрос №52472711 от evakuleva 18.02.2020 21:30

Question

Информатика: For k: =1 to n do напишите программу, которая в последовательности натуральных чисел определяет максимальное четное число. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется чётное число. количество чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число - максимально чётное число.

evakuleva · Answer

Program p12;type tab=array[1..1000] of 1..30000;var t:tab;i,max,n:integer;beginreadln(n);for i:=1 to n doreadln(t[i]);for i:=1 to n doif(t[i] mod 2=0) and (t[i] max) then max:=t[i];write(max);end....