Одномерный массив из 13 элементов заполнить случайным образом числами -7 до 7. присвоить 5-му элементу удвоенное значение 10-го элемент, а 1-му элементу значение 4-го элемента.

Var a:array[1..13] of integer;i:integer;beginrandomize;for i:=1 to 13 do  begin    a[i]:=random(14)-7;    write(a[i],' ');  end;  a[5]:=2*a[10];  a[1]:=a[4];  writeln;for i:=1 to 13 do  begin    write(a[i],' ');  end;
end.