Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. размер произвольный.

109

252

Посмотреть ответы 2

Ответы на вопрос:

slappy337

Информатика

4,6(94 оценок)

Как то так, возможно будет ошибка, я не проверял, но это можешь сделать ты var index: byte; n: longint; max; begin index: =0; max: =-32000; repet readln(n); if max< n then begin index: =index+1; max: =n; end; until n< > 0; writeln(n, ' ',index); end.