Найти порядковый номер последнего максимального числа. - Pascal

Узнай цену своей работы

Формулировка задачи:

Написать программу на Паскале. Дана последовательность неотрицательных чисел, последнее из которых равно нулю, причем других равных нулю чисел в последовательности нет. Найти порядковый номер последнего максимального числа. Помогите)

Решение задачи: «Найти порядковый номер последнего максимального числа.»

textual
Листинг программы
var a,mx:real;
    i,k:integer;
begin
writeln('Введите последовательность неотрицательных чисел, окончание ввода 0');
i:=0;
repeat
readln(a);
inc(i);
if i=1 then
 begin
  mx:=a;
  k:=1;
 end
else if a>=mx then
 begin
  a:=mx;
  k:=i;
 end;
until a=0;
writeln('Порядковый номер последнего максимального элемента=',k);
end.

Объяснение кода листинга программы

  1. Ввод последовательности неотрицательных чисел с помощью цикла repeat-until и функции readln().
  2. Объявление переменных a, mx, i, k типа real и integer соответственно.
  3. Инициализация переменной i со значением 0.
  4. Установка начального значения переменной mx равным первому введенному числу.
  5. Установка начального значения переменной k равным 1.
  6. Проверка каждого введенного числа на предмет того, является ли оно максимальным (если число больше текущего максимального значения).
  7. Если число больше текущего максимального значения, то обновляются значения переменных a, mx и k.
  8. После окончания ввода чисел, выводится порядковый номер последнего максимального числа.

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы