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

Question

Информатика

Аркадий

12 марта, 18:06

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

+5

Ответы (1)

Знаете ответ на вопрос?

Аленя · Answer 1

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.