У масиві чисел: 3, 5, 6, 18, 10, 22, 14, 25, 16, 27, 52 знайдіть позицію, на якій розташоване число 25.

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]