Автор - Aleksandar2049
Ответ:
var a:array [1..10] of Integer;
i:Integer;
begin
write ('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(51);
write (a[i]:3)
end;
writeln;
write ('Массив ');
for i:=1 to 10 do
begin
a[i]:=a[i]+5;
write (a[i]:3)
end
end.