Question

Даны 3 двумерных массива A, B, C разной длины.
Разработать процедуру ввода массивов и вычисления максимальных значений каждого из массивов.
Полученные максимумы передать в программу, в которой найти максимум среди 3-х максимальных значений.
Результаты выдать на экран.
НУЖЕН ПАСКАЛЬ

Answer 1

Type Mass = array[1..50,1..50] of integer;

Procedure ABC(Var A:Mass; Var Max:integer);
Var
   i,j:integer;
Begin
Write('M = ');ReadLn(i);
Write('N = ');ReadLn(j);
For i:= 1 to i do
    Begin
    For j:= 1 to j do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
{Поиск максимума}
Max:=A[1,1];
For i:= 1 to i do
    For j:= 1 to j do
        if A[i,j]>Max then Max:=A[i,j];
End;

Var
   A,B,C:Mass;
   MaxMax,Max:integer;
Begin
Randomize;
WriteLn('Массив A(M,N):');
ABC(A,Max);
WriteLn('Max(A) = ',Max);
MaxMax:=Max;
WriteLn;

WriteLn('Массив B(M,N):');
ABC(B,Max);
WriteLn('Max(B) = ',Max);
if MaxMax<Max then MaxMax:=Max;
WriteLn;

WriteLn('Массив C(M,N):');
ABC(C,Max);
WriteLn('Max(C) = ',Max);
if MaxMax<Max then MaxMax:=Max;
WriteLn;

WriteLn('Max(Max(A),Max(B),Max(C)) = ',MaxMax);
End.

Answer 2

спасибо