Заполнить массив случайными числами и выполнить - вопрос №5741293 от nekrasska 14.06.2020 16:16

Question

Информатика: Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент . пример. массив: 123456 результат: 612345

nekrasska · Answer

Var a,b: array[1..6] of integer; i,c: integer;  begin
for i:=1 to 6 do a[i]:=random(100);  writeln(a);  b:=a;
c:=a[6];
for i:=1 to 5 do a[i+1]:=b[i];  a[1]:=c;  writeln(a);
end.

ч/з второй массив