Ответы на вопрос:
Program mac; uses crt; const n=9; var c,i: integer; a: array[0..n] of integer; begin writeln('введите исходный массив'); for i: =0 to n do begin write('a[',i,']='); readln(a[i]); end; writeln('вывод исходного массива'); for i: =0 to n do write(a[i],' '); writeln; c: =a[n]; for i: =n-1 downto 0 do a[i+1]: =a[i]; a[0]: =c; writeln('вывод результативного массива'); for i: =0 to n do write(a[i],' '); readln end.
Популярно: Информатика
-
abduabdu201512.03.2023 09:10
-
alinatitova22816.06.2020 12:59
-
betmurzaev201502.08.2022 18:08
-
Sofia62101.05.2020 16:16
-
света861223.03.2021 07:36
-
lemurec17.09.2021 07:35
-
AlenaSmaychkov22212.01.2021 03:29
-
JHope2326.12.2022 16:03
-
tati986040613.09.2021 13:59
-
terentevvadim3312.04.2021 05:19