В массивах найти индексы максимального элемента и сложить их - Pascal ABC
Формулировка задачи:
В каждом массиве А, В и С найти индекс максимального элемента и
сложить эти индексы
Подскажите как исправить ошибку
Program la; Uses Crt; Type mas = array [1..15] of integer; Var a,b,c:mas; mc: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]); writeln End; Function Max (m:mas; n:integer):integer;Var i,imax:integer; Begin max:=m[1]; for i:=1 to n do if max<m[i] then begin max:=m[i]; imax:=i 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'); writeln('Сумма: '); end.
Код к задаче: «В массивах найти индексы максимального элемента и сложить их - Pascal ABC»
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.
14 голосов, оценка 4.143 из 5
СОХРАНИТЬ ССЫЛКУ