Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

написать программу на Паскале:

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

Ответ оставил Гость

program zadacha_1;

var max,rd,i,txr:integer;

begin

i:=1;

repeat;

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

readln(rd);

if max

i:=i+1;

until rd=0;

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

end.