Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ

Уровень B. Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй половине.
Пример:
Массив:
1 2 3 4 5 6
Результат:
3 2 1 6 5 4

Answer 1

//Pascal ABC.NET 3.1 сборка 1256

Const
 n=6;

Var
 ar:array[1..n] of integer;
 i:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
 begin
  ar[i]:=random(10);
  write(ar[i]:4);
 end;
for i:=1 to n div 4 do
swap(ar[i],ar[n div 2-i+1]);
for i:=n downto n-(n div 4) do
swap(ar[i],ar[(n div 2)+1+n-i]);
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.