Задать вопрос
18 января, 15:19

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

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)
  1. А
    18 января, 19:03
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Изменить программу так, чтобы я сам вводил число которые будут меняться, а не рандомно. Var A:array[1 ... 100] of integer; i, n, t:integer; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
 
Войти
Задать вопрос