Регистрация
ynal2001
15.06.2020 13:54
Информатика
Есть ответ 👍

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

148
396
Посмотреть ответы 2

Ответы на вопрос:

kulaevmasya
kulaevmasya
4,6(66 оценок)
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.
syrok20031812
syrok20031812
4,4(73 оценок)
Видеокарта материнка оперативка монитор мышь клавиатура.

Популярно: Информатика