Изменить программу так,чтобы я сам вводил число которые будут меняться,а не рандомно. 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.

juliyakam juliyakam    3   25.09.2019 13:40    0

Ответы
SvetaCat115 SvetaCat115  08.10.2020 18:32
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика