var a:array [1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(6)+1;
writeln('Исходный массив: ',a);
for i:=1 to 12 do a[i]:=a[i]*2;
writeln('Преобразованный массив: ',a)
end.
var a:array [1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(6)+1;
writeln('Исходный массив: ',a);
for i:=1 to 12 do a[i]:=a[i]*2;
writeln('Преобразованный массив: ',a)
end.