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