Заполнить массив случайными числами и выполнить сдвиг элементов массива в право на 1 злемент

Question

Информатика

Камилла

27 февраля, 13:38

Заполнить массив случайными числами и выполнить сдвиг элементов массива в право на 1 злемент

+3

Ответы (1)

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

Трифилий · Answer 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.