Дан двумерный массив 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 Maxx);   Writeln('Отношение min/max равно ',s.Min/s.Max:0:4) end. Пример Количество строк в массиве: 5 Количество столбцов в массиве: 8 *** Исходный массив [5,8] ***  -38 -26 -68 -48  79 -61 -25 -97   26 -81 -67 -49  22 -15  45 -75   92  93 -59  -4 -21  91 -36  19  -65 -36 -18  -1 -12   8 -91 -29  -28 -33 -41  85 -94 -15 -33  69 -------------------------------- Отношение min/max равно -1.0430
Не нашли ответ?
Ответить на вопрос
Похожие вопросы