Заменить первый отрицательный член массива нулем

Question

Заменить первый отрицательный член массива нулем

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.