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;
begin
randomize;
for i:=1 to n-1 do
begin
a[i]:=random(99);
write(a[i],' ');
end;
writeln();
for i:=n downto 8 do
a[i]:=a[i-1];
a[7]:=0;
for i:=1 to n-1 do
a[i]:=a[i+1];
for i:=1 to n-1 do
write(a[i],' ');
end.
2)
uses crt;
var i,z:integer;
A:array[0..15] of integer;
begin
read(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 do
write(A[i],' ');
end.