Question

Se considera tabloul A [1..n] de numere intregi , n <=100. Sa se scrie un program care numara cite elemente pozitive contine acest tablou (Turbo Pascal ) ...Programul si schema logica daca se poate

Answer 1

var 

 a:array[1..100] of integer;
 i,n,nr:byte;
 
begin

 read(n);
 
 for i:=1 to n do
  read(a[i]);
  
 for i:=1 to n do
  if(a[i]>0) then
   nr+=1;
   
 writeln(nr);

end.