Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Заполнить массив случайными числами и выполнить сдвиг элементов массива в право на 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.