Question

Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кроме первого

Answer 1

 

  const  

n=10;

var

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

  i,tmp: integer;

begin  

randomize;  

for i:=1 to 10 do

  begin  

  a[i]:=random(21)-10;    

Write(A[i]:3);

  end;

  writeln;

  for i:=2 to n div 2 do

  begin  

  tmp:=a[i];  

  a[i]:=a[10-i+2];

    a[10-i+2]:=tmp;

  end;  

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

readln;

end.