Application 3 (Les Algorithmes Recurrents)

Program app3;
Uses Wincrt;
Type
  tab = Array [1..20,1..20] Of Integer;
Var
  t: tab;
  n,min,max: Integer;
Procedure remplir (Var t:tab;Var n:Integer);
Var
  i,j: Integer;
Begin
  Repeat
    Write('Saisir N: ');
    Readln (n);
  Until (4<=n) And (n<=20);
  Randomize;
  For i:=1 To n Do
    For j:=1 To n Do
      t[i,j] := Random(1000);
  Clrscr;
  Writeln ('La Matrice: ');
  For i:=1 To n Do
    Begin
      Writeln;
      For j:=1 To n Do
        Write (t[i,j],' | ');
    End;
End;
Procedure min_max (t:tab;n:Integer;Var min,max:Integer);
Var
  i,j: Integer;
Begin
  min := t[1,1];
  max := t[1,1];
  For i:=1 To n Do
    For j:=1 To n Do
      Begin
        If t[i,j]<min Then min := t[i,j];
        If t[i,j]>max Then max := t[i,j];
      End;
End;
Begin
  remplir (t,n);
  min_max (t,n,min,max);
  Writeln;
  Writeln;
  Writeln ('Max: ',max);
  Writeln ('Min: ',min);
End.