Вычислить разность максимального и минимального элемента двумерного массива — Pascal (Паскаль) — CF

uses crt;
var
a: array [1..10,1..10] of integer;
i,j,min,n,m,max: integer;
begin
ClrScr;
randomize;
Write('Razmer massiva (n,m)');
Readln(n,m);
writeln('zapolnenie massiva');
 for i:=1 to n do
  begin
    writeln;
    for j:=1 to m do
     begin
        a[i,j]:=random(100);
        write(a[i,j]);
        write(' ');
    end;  
   end;
writeln;   
max:=1;
min:=100;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<min then
min:=a[i,j];
if a[i,j]>max then
max:=a[i,j];
end;
Writeln('Raznost ',max-min);
Readln;
end.

Код программы на onlinegdb

Поделитесь своим мнением или задайте вопрос