A[1...100] и B[1...100] for n:=1 to 100 do A[n]:=n-10; for n:=1 to 100 do B[n]:=A[n]*n...

Question

A[1...100] и B[1...100] for n:=1 to 100 do A[n]:=n-10; for n:=1 to 100 do B[n]:=A[n]*n сколько положительных значений .кратных 3? 1)10,2)50,3)90,4)100?

Answer 1

if (a[n]>0) and (a[n] mod 3=0) then inc(k);

inc(k) это то же самое, что и k:=k+1