Question

Se considera tabloul A[1..n] de numere intregi,n<=100.Sa se crie un program care numara cate elemente pozitive contine acest tablou

Answer 1

var

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

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

end.