Найти наибольший элемент и его номер в последовательности, - вопрос №3314574 от руслан746 04.06.2023 08:52

Question

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

руслан746 · Answer

Как то так, возможно будет ошибка, я не проверял, но это можешь сделать ты
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.