Cod sursa(job #1086061)

Utilizator Klushluck12Statescu Relu Klushluck12 Data 17 ianuarie 2014 18:00:24
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
type matrice=array[1..9,1..9] of integer;
     var a:matrice;
     m,n,i,j,l:integer;
     begin
     readln(m);
     readln(n);
     for i:=1 to m do
     for j:=1 to n do
     begin
     write('a[',i,',',j,']=');
     readln(a[i,j]);
     end;
     for i:=1 to m do
     for j:=1 to n do
     l:=l+a[i,j];
     begin

     write(l,' ');
     writeln;
     end;
     end.