Question

Помогите, пожалуйста!!! Дан одномерный массив А состоящий из 2n элементов. Переставить элементы массива следующим образом: 1) a[n+1], a[n+2], . . .,a[2n], a[n], a[n-1], . . ., a[1]. 2) a[1], a[n+1], a[2], a[n+2], . . .,a[n], a[2n]. 3) a[2n], a[2n-1], . . .,a[n+1], a[1], a[2], . . ., a[n].

Answer 1

Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln('Введите размер массива');
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i],' ');
Sr:=sr+m[i];
End;
Writeln;
Writeln(' Сред. Арф. = ',sr div n);
Readkey;
End.