Изменить программу так,чтобы я сам вводил число которые будут меняться,а не рандомно.
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.
Изменить программу так,чтобы я сам вводил число которые будут меняться,а не рандомно.
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.
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Var A: array[1..100] of integer;
writeln('Исходный массив: ');i, n, t, size: integer;
Begin
write('Введите размерность: '); readln(n);
size := n;
For i := 1 to n do
Begin
write('Введите элемент ', i, ' массива: '); readln(A[i]);
End;
writeln('Преобразованный: ');
if n mod 2 = 0 then
Begin
i := 1;
While i <= n do
Begin
t := A[i];
A[i] := A[i + 1];
A[i + 1] := t;
i := i + 2;
End;
End
else
Begin
i := 1;
While i < n do
Begin
t := A[i];
A[i] := A[i + 1];
A[i + 1] := t;
i := i + 2;
End;
End;
For i := 1 to size do
write(A[i]:4);
readln;
End.