01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / UKAZ

Program nu_i_nu;{ᮧ¤ св ў Ї ¬пвЁ ¬ ваЁжг Ё§ N*M б«гз ©­ле зЁбҐ«
                Ё ўлзЁб«пҐв Ёе б।­ҐҐ §­ зҐ­ЁҐ}
   Uses crt;
const
     Sizeofreal=6;
     N=50;
     m=20;
var
   i, j:integer;
   Ptrstr:array[1..n] of pointer;
   s:real;
type
    Realpoint=^real;

Function Adres(i, j:word):realPoint;
begin
   Adres:=ptr(seg(PtrStr[i]^),
          ofs(PtrStr[i])+(j-1)*SizeofReal)
end;

Function ZnacheniePeremennoy(i, j:integer):real;
begin
   ZnacheniePeremennoy:=Adres(i, j)^
end;

Procedure Razmeshch(i, j:integer;x:real);
begin
   Adres(i, j)^:=x
end;

Begin{program}
 Randomize;
 Clrscr;
  for i:=1 to n do
    begin
     GetMem(PtrStr[i], M*SizeofReal);
     for j:=1 to n do Razmeshch(i, j, Random)
    end;
 s:=0;
 for i:=1 to n do
  for j:=1 to m do
   s:=s+ZnacheniePeremennoy(i, j);
 Writeln(s/(n*m):12:10);
 readln;
end{program}.