var a:array [1..12] of integer;
i:integer;
begin
write ('Массив ');
for i:=1 to 12 do
a[i]:=random(10);
write(a[i]:3)
end;
writeln;
a[i]:=a[i]+2;
end.
var a:array [1..12] of integer;
i:integer;
begin
write ('Массив ');
for i:=1 to 12 do
begin
a[i]:=random(10);
write(a[i]:3)
end;
writeln;
write ('Массив ');
for i:=1 to 12 do
begin
a[i]:=a[i]+2;
write(a[i]:3)
end;
end.