Матрицы

     uses crt;
     const n=4; m=6;
     var a:array[1..n,1..m] of integer;
          i,j:integer;
begin clrscr; randomize;
     For i:=1 to n do
        For j:=1 to m do
           a[i,j]:=random(4)+2;
     For i:=1 to n do begin
        For j:=1 to m do
           write(a[i,j]:3);
        writeLn;         end;

uses crt;
     const n=6; m=4;
     var a:array[1..n,1..m] of integer;
         i,j,k,f:integer;
         Sk,Sf:real;
begin clrscr; randomize;
     {Создание рандомного массива}
     For i:=1 to n do
        For j:=1 to m do
           a[i,j]:=random(4)+2;
     {Вывод начального массива на экран}
     writeLn('Начальный массив:');
     For i:=1 to n do begin
        For j:=1 to m do
           write(a[i,j]:3);
        writeLn;      end;
     writeLn;
readkey;
     {Функциональный цикл}
     Sk:=0; Sf:=0;
     For i:=1 to n do begin
         k:=0; f:=0;
         For j:=1 to m do begin
             k:=k+a[i,j];
             if a[i,j]=2 then inc(f);
                          end;
         Sf:=Sf+f; Sk:=(Sk+k/m);
         writeLn('Ученик ',i,': имеет ',f,' двоек и его средний балл: ',k/m);
         {Цикл обнуления круглых двоишников}
         if f=m then for j:=1 to m do
                         a[i,j]:=0;
                      end;
readkey;
     writeLn;
     writeLn('Общее количество двоек: ',Sf);
     writeLn('Общий средний балл: ',Sk/n:0:2);
     writeLn;
readkey;
     {Вывод конечного массива на экран}
     writeLn('Конечный массив: ');
     for i:=1 to n do begin
         for j:=1 to m do
             write(a[i,j]:3);
         writeLn;     end;
readLn;
readkey;
end.

readLn(a[i,j]);