Наташа Яникиева

// Поменять местами первые два элемента и два средних элемента в одномерном массиве из 10 элементов.

Program CPascal;

const n=10;

var x:array [1..n] of integer;
    i,temp:integer;

Begin
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(101);
    Write(X[i]:5);
    end;
Writeln;

Temp:=X[1];
X[1]:=X[Round(N div 2)];
X[Round(N div 2)]:=Temp;

Temp:=X[2];
X[2]:=X[Round(N div 2)+1];
X[Round(N div 2)+1]:=Temp;

Writeln('Измененный массив: ');
for i:=1 to n do Write(X[i]:5);
end.