georgiy4763743
27.03.2021 14:24

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nastea3377
10.10.2020 18:26

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота