Question

Изменить программу так,чтобы я сам вводил число которые будут меняться,а не рандомно.
Var A:array[1..100] of integer;
i,n,t:integer;
Begin
write('Введите размерность: ');readln(n);
writeln('Исходный массив: ');
For i:=1 to n do
Begin
A[i]:=random(30)-15;
write(A[i]:4);
End;
writeln;
writeln('Преобразованный: ');
i:=0;
While i Begin
inc(i,1);
t:=A[i];
A[i]:=A[i+1];
A[i+1]:=t;
inc(i,1);
End;
For i:=1 to n do
write(A[i]:4);
readln;
End.

Answer 1

Var A:array[1..100] of integer;i,n,t:integer;Beginwrite('Введите размерность: ');readln(n);writeln('Исходный массив: ');For i:=1 to n doBeginread(A[i]);write(A[i]:4);End;writeln;writeln('Преобразованный: ');i:=0;While i < n do Begininc(i,1);t:=A[i];A[i]:=A[i+1];A[i+1]:=t;inc(i,1);End;For i:=1 to n dowrite(A[i]:4);readln;End.