Поиск min и мах значения

[Greschnik]

Поиск в одномерном и двумерном массиве максимального значения и минимального.
размер массива вводить с клавиатуры, вывод массива построчно и заполнение
массива рандомно, т.е случайным образом

[newerow1989]

Одномерный:

var p:array of integer;
    i,n,min,max:integer;
begin
   Write('n = ');Readln(n);
   SetLength(p,n);
   Randomize;
   For i:=0 to n-1 do
   begin
      p[i]:=Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   Writeln;
   min:=p[0];
   max:=p[0];
   For i:=1 to n-1 do
   begin
      If min>p[i] then
         min:=p[i];
      If max<p[i] then
         max:=p[i];
   end;
   Writeln('min = ',min);
   Writeln('max = ',max);
   Readln;
end.

Двумерный:

var p:array of array of integer;
    i,j,n,m,min,max:integer;
begin
   Write('n = ');Readln(n);
   Write('m = ');Readln(m);
   SetLength(p,n,m);
   Randomize;
   For i:=0 to n-1 do
   begin
      For j:=0 to m-1 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   min:=p[0,0];
   max:=p[0,0];
   For i:=0 to n-1 do
      For j:=0 to m-1 do
      begin
         If min>p[i,j] then
            min:=p[i,j];
         If max<p[i,j] then
            max:=p[i,j];
      end;
   Writeln('min = ',min);
   Writeln('max = ',max);
   Readln;
end.

Сойдет?

[Greschnik]

спасибо большое)