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

Question

Информатика

Элюня

20 ноября, 04:59

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

+1

Ответы (1)

Знаете ответ на вопрос?

Эдюня · Answer 1

Как то так, возможно будет ошибка, я не проверял, но это можешь сделать ты

var

index:byte;

n:longint;

max;

begin

index:=0;

max:=-32000;

repet

readln (n) ;

if max
begin

index:=index+1;

max:=n;

end;

until n0;

writeln (n, ' ', index) ;

end.