1. Заполнить массив из 10 элементов случайными числами. Увеличить каждый его элемент в 2 раза.
Исходный массив: 0 4 -3 2 -7 0 5 -6 3 1
Конечный массив: 0 8 -6 4 -14 0 10 -12 6 2

uses crt;const n=10;var a:array [1..n] of integer; b:array [1..n] of real; i:integer; begin clrscr;for і:=1 to n do readln(a[i]);for i:=1 to n do b[i]:=2*(a[i]);for i:=1 to n do write(a[i]:11);writeln;for i:=1 to n do write(b[i]:11:1); end.Это в Pascal