CodePascal

• const
•  amax = 100;
• var
•  a: array [1..amax] of integer;
•  i, n, ch, num: integer;
• begin
•  Writeln('Введите размер массива');
•  Readln(n);
•  ch := 0;
•  Writeln('Исходный массив');
•  for i := 1 to n do
•  begin
•    a[i] := Random(1, 100);
•    Write(a[i], '  ');
•    if not odd(a[i]) then begin
•      ch := a[i];
•      num := i;
•    end;
•  end;
•  Writeln;
•  writeln('Последний четный элемент массива: ', ch, '[', num, ']');
• end.

Тестовое решение:

Введите размер массива

10

Исходный массив

58  50  43  68  74  45  74  20  83  11  

Последний четный элемент массива: 20[8]