Узнать, является ли максимально большой элемент массива четным - Turbo Pascal
Формулировка задачи:
Решение задачи: «Узнать, является ли максимально большой элемент массива четным»
uses crt;
function Max(y:array of integer):integer;
var i,mx:integer;
begin
mx:=y[0];
for i:=1 to high(y) do
if y[i]>mx then mx:=y[i];
Max:=mx;
end;
var a:array[1..100] of integer;
n,i,j,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
writeln('Массив');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4)
end;
writeln;
write('Максимальный элемент=',Max(a));
if odd(Max(a)) then write(' он нечетный')
else write(' он четный');
readln
end.
Объяснение кода листинга программы
В представленном коде используется функция Max, которая принимает массив целых чисел в качестве аргумента и возвращает максимальное значение из этого массива. Функция использует цикл for для прохода по всем элементам массива и обновления переменной mx, если текущий элемент больше mx. В конце функция возвращает mx. Далее представлен код, который создает массив целых чисел размером от 1 до 100 и заполняет его случайными числами. Затем выводится сообщение с размером массива и его содержимым. После этого выводится сообщение о максимальном элементе массива и его четности. Обратите внимание, что в коде используется функция randomize, которая инициализирует генератор случайных чисел перед каждым повторением цикла. Это необходимо для получения разных случайных чисел при каждом запуске программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д