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

Program Dima;
Uses CRT;
type
realpoint=^real;
mas=array[1..10000] of pointer;
var
summa:real;
p:mas;
a:realpoint;
i,j,m,n:integer;
max:real;

begin
ClrScr;Summa:=0;
Randomize;
Write('‚ўҐ¤ЁвҐ Є®«-ў® бва®Є :');ReadLn(N);
Write('‚ўҐ¤ЁвҐ Є®«-ў® бв®«Ўж®ў :');ReadLn(M);
For i:=1 to N Do
GetMem(p[i],M*6);
For i:=1 to N Do
For j:=1 to M Do begin
a:=ptr(seg(p[i]^),ofs(p[i]^)+(j-1)*sizeof(real));
a^:=random(10);;
end;
max:=-7;

For i:=1 to N Do begin
For j:=1 to M Do begin
a:=ptr(seg(p[i]^),ofs(p[i]^)+(j-1)*sizeof(real));
Write(a^:4:2,' ');
end;
Writeln;
end;

For i:=1 to N Do
For j:=1 to M Do begin
a:=ptr(seg(p[i]^),ofs(p[i]^)+(j-1)*sizeof(real));
if (a^<0) and (max<a^) then max:=a^;
end;

For i:=1 to N Do
For j:=1 to M Do begin
a:=ptr(seg(p[i]^),ofs(p[i]^)+(j-1)*sizeof(real));
if a^>max then summa:=summa+a^;
end;
Writeln('‘㬬  =',summa:8:2);
readln
end.