Задача 10.3. Порахувати кiлькiсть додатнiх елементiв масиву A[6].

Program KilkDod;
Const A:array[1..6] of integer=(2,-3,4,12,321,-12);
Var n,i:Integer;
Begin
   n:=0;
 For i := 1 to 6 do
 ifa[i]>0 then n:=n+1;
 WriteLn ('N =',n);
End.
Результати роботи програми:
N=4