Заполнить массив случайными числами и выполнить - вопрос №5741795 от mazaliaopera 20.05.2020 05:45

Question

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

mazaliaopera · 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.

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