1. Дан массив, заполненный случайным образом положительными числами. В массиве 10 элементов. Вставить в массив на седьмое место значение, равное 0, затем удалить из получившегося массива первый элемент. Вывести получившийся массив на экран.

2. В программе описан одномерный целочисленный массив А с индексами от 0 до 15. Чему будут равны элементы этого массива после выполнения фрагмента программы?
For i:=0 to 15 do A[i]:=i x z;
For i:=1 to 15 do A[i]:=A[i-1];

Оба задания требуется выполнить в программе Pascal. Спасибо.

Благодарю.

Да не за что.

Может быть, у вас еще найдется время?

Давайте.

1)uses crt;const n=11;var i:integer;a:array[1..n] of integer;beginrandomize;for i:=1 to n-1 dobegina[i]:=random(99);write(a[i],' ');end;writeln();for i:=n downto 8 doa[i]:=a[i-1];a[7]:=0;for i:=1 to n-1 doa[i]:=a[i+1];for i:=1 to n-1 dowrite(a[i],' ');end.2)uses crt;var i,z:integer;A:array[0..15] of integer;beginread(z);for i:=0 to 15 do A[i]:=i*z;for i:=1 to 15 do A[i]:=A[i-1];for i:=0 to 15 dowrite(A[i],' ');end.