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

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

Question

Информатика

Киря

9 октября, 04:28

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

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

+4

Ответы (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.