1) В программе описан одномерный целочисленный массив с индексами от 1 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=1 to 10 do

A[i]:= i + 1;

for i:=2 to 9 do

A[i]:= A[i-1]+ A[i+1];

​

const low=1; high=10;

procedure qSort(var ar:array[low..high]of real; low,high:integer);
var i,j:integer;
m,wsp:real;
begin
i:=low;
j:=high;
m:=ar[(i+j) div 2];
repeat
while(ar[i]<m) do i:=i+1;
while(ar[j]>m) do j:=j-1;
if(i<=j) then begin
wsp:=ar[i];
ar[i]:=ar[j];
ar[j]:=wsp;
i:=i+1;
j:=j-1;
end;
until (i > j);
if(low<j) then qSort(ar,low,j);
if(i<high) then qSort(ar,i,high);
end;

var ar:array[low..high]of real;
i:integer;
begin
randomize;

for i:=low to high do ar[i]:=random(101)-50;
qSort(ar,low,high);
writeln;
for i:=low to high do write(ar[i],' ');
end.

var 

  a: array [1..10] of integer;  //Массив из 10 целочисленных элементов

  i: integer;

begin

  write('Исходный массив: ');

  for i:= 1 to 10 do  {Заполняем массив случайными числами от 0 до 4 и печатаем его}

  begin

    a[i]:= random(4);

    write(a[i], '  ');

  end;

  writeln;  //Перевод на новую строку

  write('Одинаковые соседние элементы:  ');

  for i:= 1 to 9 do  //Печатаем одинаковые соседние элементы

    if a[i] = a[i + 1] then write('a[', i, '] = a[', i + 1, '],  ');

  writeln;  {Перевод на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.