Вещественные числа х, у, z являются исходными данными для следующего алгоритма: 1) переменной m присвоить значение х; 2) сравнить значения m и у: если у больше m, переменной m присвоить значение у; 3) сравнить значения m и z: если z больше m, переменной m присвоить значение z. выясните, какую
решает этот алгоритм. запишите его на языке программирования pascal. решите аналогичную для чисел х, у, z и w.
В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max
В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число!
program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin read(x); if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln ('Не таких чисел');end.