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

var H, i, sum: integer;

a: array [1 ... 10000] of integer;

begin

//ввод исходных данных

write ('Введите H: '); readln (H);

writeln ('Введите числа');

for i:=1 to H do readln (a[i]);

//проверка элементов массива

sum:=0;

for i:=1 to H do

if (a[i]<0) then a[i]:=0 else sum:=sum+1; / /если отрицательное - обнуляем, иначе оно положительное, увеличиваем сумму на 1

//вывод

writeln ('Итоговый массив');

for i:=1 to H do write (a[i], ' ');

Writeln ();

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

end.