uses crt;
const
n = 5;
var
a, b: array [1 .. n] of integer;
i: byte;
k: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i := 1 to n do
begin
a[i] := random(19) - 9;
write(a[i]:3);
end;
writeln;
write('введите коэффициент изменения: ');
readln(k);
writeln('получившийся массив: ');
for i := 1 to n do
begin
b[i] := a[i] + k;
write(b[i]:3);
end;
end.