Question

Напишите пожалуйста программу очень нужно

Answer 1

var

   i, n, a, m : integer;

   

begin

   writeln('введите последовательность чисел: ');

   repeat

       read(a);

       i += 1;

       if (a mod 2 = 0) and (a > m) then begin

           n := i;

           m := a;

       end;

   until a = 0;

   writeln('номер наибольшего четного члена ', n);

end.

программа работает без массива, она исчет номер нужного члена на лету по мере ввода данных. Эту задачу можно решить и по другому, забив данные в массив и затем найти там искомое значение.  На результат это не влияет но во втором случае программа несколько усложнится.