Question

Составьте программу которая подсчитывает количество положительных элементов одномерного массива

Answer 1

type   massiv = array [1..1000] of integer;
var    arr : massiv; 
   i,n,s: integer;
begin  
   write('Введите кол-во элементов : ');
readln(n);  
   for i:=1 to n do       
 begin     
write('Введите ',i, ' элемент : ');
 readln(arr[i]); 
if arr[i]>0 then s:=s+1; 
 end;         
writeln('Количество положительных элементов: ', s);
end.  

b2ea7a451eca96ecee547f3f3f06d258.pas

Answer 2

у меня там есть недочет: 0 тоже положительное число поэтому сравнение будет таким if arr[i]>=0 then.....