ערכתי לאחרונה בתאריך 26.02.06 בשעה 14:00 בברכה, FireAngel
Program Ex; Const N = 10; var A,B,C:Array [1..N] of Integer; J:integer; begin For I:=1 to N do readln(A[I]); For I:=1 to N do readln(B[I]); For I:=1 to N do C[I]:=B[I]; J:=1; For I:=N downto 1 do begin B[J]:=A[I]; J:=J+1; end; For I:=1 to N do A[I]:=C[I]; end.