Cod sursa(job #1086061)
Utilizator | Statescu 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.