Задать массив состоящий из 10 случайных чисел в интервале от 1 до 100, записать
Затем увеличить элементы в 2 раза и опять записать

const n=10;var a:array[1..n] of integer;i:integer; beginRandomize;for i:=1 to n do begin a[i]:=random(101)+1; write(a[i]:4); end;writeln;for i:=1 to n do  begin a[i]:=2*a[i]; write(a[i]:4); end;writeln;end. Пример:  49  50  73  47  69  29  42  37  44  19  98 100 146  94 138  58  84  74  88  38