Question

Умножить все элементы массива A на 2( Паскаль)

Answer 1

Var n:integer;
a:Array[1..100] of integer;
begin
read(n);
for i:1 to N do
begin
a[i]:random(10);
a[i]=a[i]*2;
writeln(a[i]);
end;
end.