Дан одномерный массив M из 10 элементов, сдвинуть его элементы на три позиции. Pascla

Question

Информатика

Варюня

6 февраля, 17:31

Дан одномерный массив M из 10 элементов, сдвинуть его элементы на три позиции. Pascla

+3

Ответы (1)

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

Софьюшка · Answer 1

Const N = 10; var a: array [1 ... N] of longint; i, d, j:longint; begin for i:=1 to N do read (a[i]) ; for j:=1 to 3 do begin d:=a[n]; for i:=N downto 2 do a[i] : = a[i-1]; a[1]:=d; end; writeln ('После сдвига: ') ; for i:=1 to N do write (a[i],' ') ; writeln; end.