Здравствуйте, dinar.ahmetov.2598!
[code lang=pascal h=100]
Const N=10;
Var a, b: array[1..N] of Integer;
i, PosMaxNegative: Integer;
begin
PosMaxNegative:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i]<0 then
PosMaxNegative:=i;
end;
writeln;
if PosMaxNegative>0 then
begin
for i:=1 to n do
if (a[i] < 0) and (a[i]>a[PosMaxNegative]) then
PosMaxNegative:=i;
for i:=1 to N do
begin
if a[i]>0 then{тут ошибка искались отрицательные числа, а нужны были положительные}
b[i]:=a[PosMaxNegative]
else
b[i]:=a[i];
write(b[i],' ')
end
end
else
write('Нет ни одного отрицательного числа')
end.[/code]
Примеры работы кода(см. комментарий в коде: был перепутан ">" и "<" К.Зенченко):
Ввод:

Вывод:


Ввод:

Вывод: