Обнулить все отрицательные элементы массива и посчитать количество остальных.

Question

Информатика

Кантидиан

6 декабря, 08:22

Обнулить все отрицательные элементы массива и посчитать количество остальных.

+2

Ответы (1)

Знаете ответ?

Надена · Answer 1

Var

counter, i, N:integer;

mas:array[1 ... 9999] of integer;

begin

readln (N) ;

for i:=1 to N do

readln (mas[i]) ;

for i:=1 to N do

if mas[i]<0 then

mas[i]:=0

else

counter:=counter+1;

for i:=1 to N do

write (mas[i],' ') ;

end.