Заменить первый отрицательный член массива нулем - вопрос №133918 от alikhan12 21.04.2023 05:09

Question

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

alikhan12 · 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.