Вводится число Н. а за ним Н целых чисел-элементов массива. обнулите все отрицательные элементы массива и посчитайте количество остальных. через паскаль абс

Предыдущий
вопрос Следующий
вопрос

program CountPositive
va
N, i, count: integer
arr: array[1..100] of integer
begi
count := 0;

write('Введите количество элементов массива: ')
readln(N);

write('Введите элементы массива: ')
for i := 1 to N d
begi
read(arr[i])
if arr[i] >= 0 the
count := count + 1
end;

writeln('Количество положительных элементов массива:', count)
end.