FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
deyutza07
Femeie
23 ani
Buzau
cauta Barbat
25 - 48 ani
FORUM / Forum Nou / 1  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
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.
pus acum 18 ani
   
Pagini: 1  

Mergi la