Нужна программа на паскале
нужно вводить последовательность с клавиатуры( конец ввода 0) с while, найти порядковый номер первого из чисел с максимальным значением
т.е например на ввод 6 5 9 7 9 0
вывод 3
вроде легко, но никак не могу написать, чтобы корректно работало
1234567891241
3
04.12.2019 20:26
1
Другие вопросы по теме Информатика
МозгЗнанияПамять
01.08.2019 14:00
ybitedent
17.09.2019 03:10
настящасте
13.12.2020 13:41
infourazyukp092y0
13.12.2020 13:40
anastasiasestak
25.09.2019 03:50
zakriev767
25.09.2019 03:50
galina510
25.09.2019 03:50
blurryriden
08.04.2020 10:54
Популярные вопросы
- нужен аргумент в сочинении что такое неравнодушие из литературы...
3 - с задачей фото в закрепе (если можно то с объяснением)...
1 - Вычислите: 5^15 * 36^14 / 20^14 * 9^12 * 2...
1 - кому не сложно балов Які найвижчі стани суспільства(декілька) А) слуги...
2 - Известно, что точки A, B, C и D — вершины прямоугольника. Дано: A(0;0);C(4;1);D(4;0)....
3 - 2х+5у-16=0 шгарп бересіздермаа?...
2 - Маховик, приведений в рівноприскорене обертання, зробивши 60 повних...
3 - Докажите, что стихотворение Ты кончил жизни путь, герой!.. относится...
1 - Постройте круговую диаграмму суточного распределения работы и отдыха...
1 - Замените разговорное слово ГАДКИЙ в предложении 16 стилистически нейтральным...
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.