Программа, которая в последовательности натуральных чисел определяет максимальное четное двузначное число. Последовательности нет, поэтому создаём её в виде массива.
var
a: array [1..20] of integer; // Создаём массив из 20 элементов
max: integer; // и переменную для хранения максимального значения
begin
for var i := 1 to 20 do
begin
a[i] := random(0, 200); // Заполняем натуральными числами
write(a[i] + ' '); // Выводим на экран для проверки программы
end;
foreach i: integer in a do // Проходим по элементам массива
if (i.ToString().Length = 2) and (i mod 2 = 0) then // Если 2хзн и чёт,то
if (max < i) then max := i; // Если макс меньше, то макс=новый
writeln('максимальное четное двузначное число: ' + max);
end.
Программа, которая в последовательности натуральных чисел определяет максимальное четное двузначное число. Последовательности нет, поэтому создаём её в виде массива.
var
a: array [1..20] of integer; // Создаём массив из 20 элементов
max: integer; // и переменную для хранения максимального значения
begin
for var i := 1 to 20 do
begin
a[i] := random(0, 200); // Заполняем натуральными числами
write(a[i] + ' '); // Выводим на экран для проверки программы
end;
foreach i: integer in a do // Проходим по элементам массива
if (i.ToString().Length = 2) and (i mod 2 = 0) then // Если 2хзн и чёт,то
if (max < i) then max := i; // Если макс меньше, то макс=новый
writeln('максимальное четное двузначное число: ' + max);
end.
