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

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

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

end.

Аделина Шелитова
обновил
Шурик Стахиев
Отметь как лучшее решение
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт