Вопрос от посетителя
заменить первый отрицательный член массива нулем
Отвечает Илюха:
var a:array[1..10] of integer;
i,t:integer;
Begin
for i := 1 to 10 do
read(a[i]);
for i := 1 to 10 do begin
if (a[i]<0) and t=0 then begin
a[i]:=0;
t:=1;
end;
writeln(a[i]);
end;
End.