Впоследовательности из 15 целых чисел найти максимальный элемент из четных. написать программу)

227

429

Посмотреть ответы 2

Ответы на вопрос:

Nodar2004

Информатика

4,7(45 оценок)

Вцикле проверяете (a mod 2) равно ли нулю, то бишь равен ли нулю остаток. если да - число четное. одновременно с этим первое четное число кладете в переменную max, а остальные четные сравниваете с этой переменной, если какое-то число больше - его кладете в переменную max. ясно? если нет, могу написать программу, но лучше чтобы вам было ясно upd: можно через массивы, но это не хардкорно a, max, counter : integer; begin max : = 0; for counter = 1 to 15 do begin writeln("write ur number: "); readln(a); if (a mod 2) = 0 then if a > max then max : = a; end; writeln(max); readln(); end. ––––––––––––––––––––––––––––––––––– вам б-г