Дан двумерный массив A[m,n]. Найти отношение минимального к максимальному значению массива. Результаты выдать на экран.Нужен паскаль !!!!!!!!!!!!!!!!

Вопрос школьника по предмету Информатика

Дан двумерный массив A[m,n]. Найти отношение минимального к максимальному значению массива. Результаты выдать на экран.Нужен паскаль !!!!!!!!!!!!!!!!

Ответ учителя по предмету Информатика

Var

A:array[1..1000,1..1000] of integer;

M,N,Min,Max:integer;

Begin

Write(‘M(1..1000) = ‘);

ReadLn(M);

Write(‘N(1..1000) = ‘);

ReadLn(N);

For var i:= 1 to M do

    Begin

    For var j:= 1 to N do

        Begin

        A[i,j]:=random(1,M*N);

        Write(A[i,j],’ ‘)

        End;

    WriteLn;

    End;

Min:=A[M,N];

Max:=A[M,N];

For var i:= 1 to M do

    For var j:= 1 to N do

        Begin

        if Min>A[i,j] then Min:=A[i,j];

        if Max<A[i,j] then Max:=A[i,j]

        End;

WriteLn(‘Min(A) / Max(A) = ‘,Min/Max);

End.

Пример:

M(1..1000) = 3

N(1..1000) = 3

6 9 6

4 5 3

1 9 7

Min(A) / Max(A) = 0.111111111111111