Задать вопрос Регистрация
Помочь другим

  • Найти максимальный элемент и его номер. В Pascal. Тема массивы ;)

Ответы 1

  • const n = 10; var i:integer; mas : array[1..n] of integer; max_num, max_index: integer;begin writeln('введите элементы массива'); for i:=1 to n do readln(mas[i]); for i := 2 to n do if mas[i] > max_num then begin max_index := i; max_num := mas[i]; end; writeln('Максимальное число ',max_num,' находится на позиции ',max_index);end.

     

     

     

     

    Объяснение - 

    константы:

    n- это сколько чисел будет в твоём массиве

    max_num - максимальное число 

    max_index - позиция числа

     

    Функции :

    for i:=1 to n do readln(mas[i]); - вводим числа в массив

     

     

    for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;

     

    ищем максимальное число и его позицию

    • Автор:

      carissa
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years