Question

Нужна программа на паскале
Нужно вводить последовательность с клавиатуры( конец ввода 0) с помощью while, найти порядковый номер первого из чисел с максимальным значением
Т.е например на ввод 6 5 9 7 9 0
Вывод 3
Вроде легко, но никак не могу написать, чтобы корректно работало

Answer 1

Ответ:

var a,m,k,p:integer;

begin

read(a);

m:=a;

k:=1;

p:=1;

while a<>0 do

begin

if a>m then

begin

m:=a;

p:=k

end;

k:=k+1;

read (a)

end;

writeln (p)

end.