Написать программу на паскале: найти номер первого - вопрос №1609134 от TanyaSha300 21.06.2021 21:39

Question

Информатика: Написать программу на паскале: найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. условие окончания ввода – ввод числа 0.

TanyaSha300 · Answer

program zadacha_1;

var max,rd,i,txr:integer;

begin

i:=1;

repeat;

writeln('Введи ',i,' -ое число');

readln(rd);

if max<rd then txr:=i;

i:=i+1;

until rd=0;

writeln('Номер максимального элемента - ',txr);

end.