Отыскать наибольший элемент в массиве из 11-ти чисел [0, 100] и

Отыскать наибольший элемент в массиве из 11-ти чисел [0, 100] и вывести его порядковый номер.

Задать свой вопрос
1 ответ

var a: array[0..100] of integer; //Обрисовываем массив в разделе переменных.

i, max: integer; //А так же счётчик и переменную, которая будет отвечать за индекс наибольшего элемента.

begin //Начало.

writeln(Заполните массив с клавиатуры); //Запрашиваем у пользователя ввод массива.

for i := 0 to 10 do readln(a[i]); //В цикле его заполняем с клавиатуры.

max := 0; //Индекс наибольшего пока что ноль.

for i := 1 to 11 do //Проходим циклом по всем элементам массива.

if a[i] gt; a[max] then max := i; //Если текущий элемент больше наибольшего - записываем его индекс в max.

writeln(Порядковый номер наибольшего элемента в массиве ,  max); //Выводим индекс наибольшего.

end. //Конец.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт