Изменить программу так, чтобы я сам вводил число которые будут меняться, а не рандомно.

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.

Question

Информатика

Аклилу

4 декабря, 17:49

Изменить программу так, чтобы я сам вводил число которые будут меняться, а не рандомно.

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.

+3

Ответы (1)

Знаете ответ на вопрос?

Анкома · 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.