Обнулить все отрицательные элементы массива и посчитать - вопрос №3785673 от uvalievnursulta2 11.03.2020 22:45

Question

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

uvalievnursulta2 · Answer

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.