В массивах найти индексы максимального элемента и сложить их - Pascal ABC
Формулировка задачи:
В каждом массиве А, В и С найти индекс максимального элемента и
сложить эти индексы
Подскажите как исправить ошибку
Решение задачи: «В массивах найти индексы максимального элемента и сложить их»
textual
Листинг программы
program la; uses Crt; type mas = array [1..15] of integer; var a, b, c: mas; mc: integer; imaxA,imaxB,imaxC: integer; procedure InMas(var m: mas; n: integer; mas_name: char); var i: integer; begin writeln('Введите массив ', mas_name, 'из ', n, ' элементов:'); for i := 1 to n do read(m[i]); end; procedure OutMas(m: mas; n: integer; mas_name: char); var i: integer; begin writeln('Массив ', mas_name, ':'); for i := 1 to n do write(m[i]:5); writeln end; function Max(m: mas; n: integer): integer; var i, imax, maxi: integer; begin maxi := m[1]; for i := 2 to n do if maxi < m[i] then begin maxi := m[i]; imax := i end; Max := imax; end; begin clrscr; InMas(a, 3, 'A');InMas(b, 3, 'B');InMas(c, 3, 'C'); OutMas(a, 3, 'A');OutMas(b, 3, 'B');OutMas(c, 3, 'C'); imaxA:=Max(A,3); imaxB:=Max(B,3); imaxC:=Max(C,3); writeln('Индекс max элемента массива A = ', imaxA); writeln('Индекс max элемента массива B = ', imaxB); writeln('Индекс max элемента массива C = ', imaxC); writeln('Сумма индексов = ', imaxA + imaxB + imaxC); end.
Объяснение кода листинга программы
- Создается программа на языке Pascal ABC.
- Используются стандартные библиотеки Crt.
- Определяется тип данных
mas
- это массив целых чисел размером от 1 до 15. - Определяются три переменные типа
mas
- a, b и c, а также переменная типа integer - mc. - В процедуре InMas считываются данные для каждого из трех массивов.
- В процедуре OutMas выводятся данные для каждого из трех массивов.
- Определяется функция Max, которая находит максимальное значение в массиве и его индекс.
- В начале основной программы сбрасывается экран с помощью функции clrscr.
- Затем выполняются три вызова процедуры InMas для каждого из массивов.
- Выполняются три вызова процедуры OutMas для каждого из массивов.
- Вычисляется максимальное значение в каждом из массивов с помощью функции Max.
- Выводится индекс максимального элемента в каждом из массивов.
- Выводится сумма всех индексов максимальных элементов.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д