Дан целочисленный массив из 6-ти элементов.Поменять элементы местами по кругу(последний-первый)

1

Ответы и объяснения

2012-10-24T18:42:24+04:00

const

n=6;

var

a:array [1..n] of integer;

k,i:integer;

begin

randomize;

for i:=1 to n do begin

a[i]:=random(30)+1;

write(a[i],' ');

end;

writeln; 

for i:=1 to 3 do begin

k:=a[i];

a[i]:=a[n+1-i];

a[n+1-i]:=k; 

end; 

for i:=1 to n do write(a[i],' '); 

readln;

end.