Дан массив К, содержащий 48 элемента, в интервале от -7 до 43. Поменять местами элементы равноудаленные от центра.

Поменять местами равноудаленные элементы от центра... Ну по-простому это реверс массива. В школе обычно учат так://Pascalconst n = 48;var i,k,c: integer;a:array[1..n] of integer;begin//Заполняем массивfor i:=1 to n do begin  a[i]:=random(51)-7;  write(a[i]:3);end;writeln;//Реверс массиваfor i:=1 to n div 2 do begin  c:=a[i];  a[i]:=a[n+1-i];  a[n+1-i]:=c;end;//вывод массива после ревесаfor i:=1 to n do   write(a[i]:3);end.