Question

напишите программу для удвоение значения каждого массива и выведите на экран.Дан фрагмент
for i:=1 to 12 do begin s:=2*x[i];
writeln('s=',s);
end;