Kód: Vybrať všetko

uses crt;
{$F-}
type p=array[1..1]of real;
	pl=array[1..1]of ^p;
	
procedure sucet(r,s:byte);
var ma,mb{,mc}:^pl;
 begin randomize;
 
 
 getmem(ma,sizeof(pointer)*r);
for r:=1 to r do getmem(ma^[r],sizeof(real)*s);
 getmem(mb,sizeof(pointer)*r);
for r:=1 to r do getmem(mb^[r],sizeof(real)*s);
 

  for r:=1 to r do
   for s:=1 to s do
     begin
       ma^[r]^[s]:=random(14);writeln('1. matica -',r,'x',s,'- : ',ma^[r]^[s]);
       mb^[r]^[s]:=random(100);writeln('2. matica -',r,'x',s,'- : ',mb^[r]^[s]);
       {mc[r,s]:=ma[r,s]+mb[r,s];}
     end;

  for r:=1 to r do begin for s:=1 to s do write(ma^[r]^[s]+mb^[r]^[s]:7:2);{write(mc^[r,s]:7:2);} writeln; end;

 end;


var m1,n1,m2,n2:byte;
BEGIN
write('pocet riadkov prvej matice: ');readln(m1);
write('pocet stlpcov prvej matice:  ');readln(n1);

write('pocet riadkov druhej matice: ');readln(m2);
write('pocet stlpcov druhej matice:  ');readln(n2);

if(m1<>m2)or(n1<>n2)then writeln('nesuladne matice typu mxn nemozno spocitat')
else sucet(m1,n2);
END.