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

0 голосов
135 просмотров

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


Информатика (1.1k баллов) | 135 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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

end.

(528 баллов)
0

обновил

0

Отметь как лучшее решение