Решите программу на языке Pascal:
"Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент".
Привожу начало программы. Cерым цветом приведено описание действий в каждой строке. Вам требуется дописать имеющуюся программу и выслать полный рабочий код мне на почту: Этот адрес электронной почты защищен от спам-ботов. У вас должен быть включен JavaScript для просмотра., либо отправьте код через систему обучения moodle.
Примечание: в конце имеющегося кода программы есть ошибка
program swap;
var
a: array[1..100] of integer; // объявление массива целых чисел
N, F, i: integer; // объявление переменных целого типа
begin
readln( N ); // запрашиваем кол-во строк, их м.б. не больше 100
randomize; // сбиваем счетчик случайных чисел
for i := 1 to N do // запускаем цикл от 1 до N
begin // блок между begin..end является телом цикла
a[i] := random(100); // присваиваем элементу массива случайное значение от 0 до 100 ( 0 <= a[i] < 100 )
write( a[i], ' '); // вывод на экран элемента массива
end;
F := a[N]; // запоминаем в переменную значение последнего элемента массива
for i := N downto 1 do // запускаем цикл в обратном порядке от N до 1
a[i] := a[i-1]; // текущему элементу присваиваем значение предыдущего элемента массива
...
end. // конец программы