Напишите пожалуйста программу очень необходимо
Напишите пожалуйста программку очень нужно
Задать свой вопрос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.
программа работает без массива, она исчет номер подходящего члена на лету по мере ввода данных. Эту задачку можно решить и по иному, забив данные в массив и потом отыскать там разыскиваемое значение. На итог это не влияет но во втором случае программка несколько усложнится.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.