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}.







Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.