Question

Даны 4 двумерных массива a, b, c, d разной длины. разработать процедуру ввода массивов, вычисления минимальных значений каждого из массивов. в процедуре подсчитать количество равных минимуму значений в каждом массиве. полученные количества передать в программу, в которой найти максимум среди всех количеств. результаты выдать на экран. нужен

Answer 1

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

Procedure ABC(Var A:Mass; Var k,Min: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;
{Поиск минимума}
Min:=A[1,1];
For i:= 1 to i do
    For j:= 1 to j do
        if A[i,j]<Min then Min:=A[i,j];
{Подсчёт минимумов}
k:=0;
For i:= 1 to i do
    For j:= 1 to j do
        if A[i,j]=Min then k:=k+1;
End;
Var
   A,B,C,D:Mass;
   Max,kMin,Min:integer;
Begin
Randomize;
WriteLn('Массив A(M,N):');
ABC(A,kMin,Min);
WriteLn('Min(A) = ',Min);
WriteLn('kMin(A) = ',kMin);
Max:=kMin;
WriteLn;

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

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

WriteLn('Массив D(M,N):');
ABC(D,kMin,Min);
WriteLn('Min(D) = ',Min);
WriteLn('kMin(D) = ',kMin);
if Max<kMin then Max:=kMin;
WriteLn;
WriteLn('Max(kMin(A),kMin(B),kMin(C),kMin(D)) = ',Max);
End.