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

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

Задать свой вопрос
1 ответ

var

   i, n, a, m : integer;

   

begin

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

   repeat

       read(a);

       i += 1;

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

           n := i;

           m := a;

       end;

   until a = 0;

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

end.

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт