oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 14:32 Titlul subiectului: Problema 27 |
|
|
| Cod: |
program ex28;
var x:array[1..100,1..100] of integer;
k,n,i,j,p,t,aux:integer;
begin
readln(n);
for i:=1 to n do for j:=1 to n do readln(x[i,j]);
readln(k);
for i:=1 to k do for j:=1 to n do begin
aux:=x[j,1];
for p:=1 to n-1 do x[j,p]:=x[j,p+1];
x[j,n]:=aux;
end;
for i:=1 to n do begin
for j:=1 to n do write(x[i,j],' ');
writeln;
end;
end.
|
|
|
