const n=10;
var a:array[1..n] of integer;
i: integer;
begin
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(9)+1;
write (a[i]:4,' ')
end;
writeln;
write('Преобразованый массив: ');
for i:=1 to n do
begin
if (a[i] = 5) then a[i]:=1000;
write (a[i]:4,' ')
end
end.
