Question

СРОЧНО!!!!!! ПОМОГИТЕ ​

Answer 1

Ответ:

Const n=10;

Var A : array [1..n] of integer;

i, k : integer;

begin

For i:=1 to n do A[i]:=random(11)+5;

Writeln('Array A:');

For i:=1 to n do Write(A[i]:3);

Writeln;

i:=1;

While(i<=n) do

begin

k:=A[i];

A[i]:=A[i+1];

A[i+1]:=k;

i:=i+2;

end;

Writeln('New array A:');

For i:=1 to n do Write(A[i]:3);

end.

Объяснение: ответы