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

Program Romik;
uses crt;

Type
Realpoint=^real;
mas=array[1..10000] of Pointer;
var
summa:real;
pr:realpoint;
a:mas;
Sred:real;
i,j,n,m:integer;

BEGIN
clrscr;
Randomize;
Writeln('‚ўҐ¤. n m <=10000 ');
readln(n,m);
for i:=1 to m do
GetMem(a[i],n*Sizeof(real));
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*sizeof(real));
pr^:=-3+random(7);
end;
for i:=1 to m do begin
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
write(pr^:4:0);
end;
writeln;
end;summa:=0;
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
summa:=summa+pr^;
end;
sred:=summa/(n*m);
Summa:=0;
for i:=1 to m do
for j:=1 to n do begin
pr:=ptr(seg(a[i]^),ofs(a[i]^)+(j-1)*6);
if pr^>sred then summa:=summa+pr^;
end;
Writeln('‘।­ҐҐ  аЁд¬ҐвЁзҐбЄ®Ґ: ',sred:4:2);
writeln('‘㬬 : ', summa:4:2);
readln;
end.