Tablouri bidimensionale (matrici)

Tablouri bidimensionale (matrici)

   Sintaxa:
type id_tip_tablou = array[id_tip_sc1, id_tip_sc2] of id_tip;

   Exemple:
type orar=array[1..4,1..5] of String;
var OrarulMeu: orar;

program CelMaiBunElev;
uses Crt;
var Medie: array[1..30, 1..30] of Real;
   m,n,clasa,elev,i0,j0: integer; maxim: real;
begin
   ClrScr; WriteLn('CEL MAI BUN ELEV LA INVATATURA');
   Write('Dati numarul de clase din scoala: ');
   ReadLn(m);
   Write('Dati numarul de elevi pe o clasa: ');
   ReadLn(n);
   WriteLn; WriteLn('Dati mediile!');
   for clasa:=1 to m do
   begin
      Write('Clasa nr. ',clasa,' dati mediile!');
      WriteLn;
      for elev:=1 to n do
      begin
         Write('elevul ',elev,': media:');
         ReadLn(Medie[clasa,elev])
      end;
   end;
   maxim:=Medie[1,1]; i0:=1; j0:=1;
   for clasa:=1 to m do
      for elev:=1 to n do
         if Medie[clasa,elev]>maxim then
         begin
    maxim:=Medie[clasa,elev];
    i0:=clasa, j0:=elev
         end;
   WriteLn('Unul din cei mai buni elevi este:');
   WriteLn('Elevul nr. ',j0,' din clasa nr. ',i0,' .');
   WriteLn('Media maxima (obtinuta de el) este: ',maxim:5:2);
   ReadLn
end.