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

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

Question

Информатика

Настюха

15 ноября, 13:11

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

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

+3

Ответы (1)

Знаешь ответ?

Альбиныч · Answer 1

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.