Заполнить массив случайными числами и выполнить сдвиг элементов массива в право на 1 злемент
Заполнить массив случайными числами и выполнить сдвиг элементов массива в право на 1 злемент
Гость
Ответ(ы) на вопрос:
ГостьUses crt;
Var mas: array [-10..10] : integer;
i:integer;
randomise;
for i:=1 to 10 do
mas[ i] := -10 +random(10);
For i:=1 to 10 do
Write(mas[i]' ');
Writeln;
End.
Не нашли ответ?
Похожие вопросы