profile="http://gmpg.org/xfn/11"> Дан целочисленный массив а(10), заполненный датчиком случайных чисел. Найти максимальный элемент массива среди четных элементов. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Дан целочисленный массив а(10), заполненный датчиком случайных чисел. Найти максимальный элемент массива среди четных элементов.

Дан целочисленный массив а(10), заполненный датчиком случайных чисел. Найти максимальный элемент массива среди четных элементов.

program Task_Max4;

  {Дан целочисленный массив а(10), заполненный датчиком случайных чисел.
  Найти максимальный элемент массива среди четных элементов.}
const
  n = 10;
var
  a: array[1..n] of integer;
  i_MaxNum, i, i_Temp: integer;
begin
  Randomize();
  i_MaxNum := not (MAXINT);
  i_Temp := 0;
  for i := 1 to n do
  begin
    a[i] := Random(20) + 1;
    Writeln('i: ', i, ', значение ', a[i]);
    i_Temp := a[i] mod 2;
    if i_Temp = 0 then
    begin
      if i_MaxNum < a[i] then
      begin
        i_MaxNum := a[i];
      end;
    end;
  end;

  //Вывод на экран
  Writeln('Максимальный элемент массива среди четных элементов: ', i_MaxNum);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Дан целочисленный массив а(10), заполненный датчиком случайных чисел. Найти максимальный элемент массива среди четных элементов
Дан целочисленный массив а(10), заполненный датчиком случайных чисел. Найти максимальный элемент массива среди четных элементов.

Дополнительные материалы:
Найти минимальный элемент массива, паскаль.
Найти минимум и максимум в массиве — Pascal (Паскаль).
Найти минимальное число в массиве, паскаль.
Минимальное значение, которое может иметь число типа Integer в Паскале.
Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).
Минимальный элемент массива, что это?

Комментарии запрещены.