Cod sursa(job #181497)
| Utilizator |  Jones the one madmanjones |
Data | 18 aprilie 2008 14:15:17 |
|---|---|---|---|
| Problema | Rubarba | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
var n,i,aux: integer;
v: array[1..100] of integer;
begin
writeln('dati n');
read(n);
for i:= 1 to n do
read( v[i]);
for i:= 1 to( n div 2) do
begin
aux:=v[i];
v[i]:=v[n-i+1];
v[n-i+1]:= aux;
end;
for i:= 1 to n do
write(v[i],' ');
end.