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

Question

Информатика

Натоха

1 сентября, 13:03

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

+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.