Посчитать в массиве из 10 чисел количество положительных элементов.
pascal

program n;var       m: array[1..10] of integer;     i,k: integer;beginwriteln('Введите массив');k:=0;for i:=1 to 10 do begin    readln(m[i]);   if  m[i]>0 then k:=k+1; end;writeln(k);end.Если я помогла,то отметь мой ответ лучшим,пожалуйста