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

Question

Информатика

Герасим

5 июня, 07:16

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

+3

Ответы (1)

Знаете ответ на вопрос?

Гуся · Answer 1

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