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

Question

Информатика

Харлампий

5 января, 22:04

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

+4

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