Две массив P из 17 элементов. Найти количество пятёрок в массиве.

Const n=17;

var a:array[1 ... n] of integer;

k, i:integer;

begin

Randomize;

writeln ('Массив A:') ;

for i:=1 to n do

begin

a[i]:=random (21) ;

write (a[i]:3) ;

end;

writeln;

k:=0;

for i:=1 to n do

if a[i]=5 then k:=k+1;

writeln ('k = ', k) ;

end.

Пример:

Массив A:

13 0 5 4 16 2 5 7 13 0 16 6 2 8 6 11 13

k = 2