Question

Решите пожалуйста) ​

Answer 1

В 8 будет 6. Программа подсчитывает количество песен, с количеством голосов больше 25 и выводит это число на экран.

А вот 9ое:

Program Array1;

const

n = 12;

var  

a,b: integer;

d: array[1..n] of integer;

Begin

b:=1;

for a:=1 to n do

 d[a]:= random(10,45);

for a:=1 to n do

if (d[a] mod 5)=0 then

b:=d[a]*b;

writeln('Произведение равно',' ',b);

end.

Answer 2

Спасибо большое, Maxthon. Я, Вам, искренне благодарен