FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Profil Pavel Andreea
 | Femeie
24 ani
Vrancea
cauta Barbat
28 - 49 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
Postari: 215
|
|
{fie o matrice cu n linii si n coloare ce contine numere intregi.Sa se realizeze
un prg in care matricea sa fie parcurisa in spirala}
var a:array[1..10,1..10] of integer;
j,n,i:integer;
begin
write('n='); readln(n);
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,',',j,']='); readln(a[i,j]); end;
for i:=1 to (n+1) div 2 do
begin
for j:=i to n-i+1 do write(a[i,j],' ');
for j:=i+1 to n-i+1 do write(a[j, n-i+1],' ');
for j:=n-i downto i do write(a[n-i+1, j],' ');
for j:=n-i downto i+1 do write(a[j,i],' ');
end;
readln;
end.
|
|
| |
|
