В массивах найти индексы максимального элемента и сложить их - 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»

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.

14   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ