Question

Сколько раз применяется цикл в данной программе?

1 Program Primer1_1;

2 Var A: Array[1..20] Of Integer;

3 i, n, s, p: Integer;

4 Begin

5 Write (‘n=’); Readln (n);

6 For i:=1 To n Do

7 Readln (A[i]);

8 s:= 0; p:=1;

9 For i:=1 To n Do

10 If (A[i] mod 2 <>0) and (A[i] mod 3 = 0) Then

11 Begin

12 s:=s+A[i];

13 p:= p*A[i]

14 End;

15 Writeln (‘s=’, s, ‘p=’, p);

16 End.