Найти произведение элементов массива A, которые меньше некоторого числа B. Вывести на печать исходный массив и значение произведения.

Question

Информатика

Меркурия

11 июля, 07:34

Найти произведение элементов массива A, которые меньше некоторого числа B. Вывести на печать исходный массив и значение произведения.

+3

Ответы (1)

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

Доса · Answer 1

Program massiv;

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

b, i, p: integer;

begin

p:=1;

for i:=1 to 10 do

begin

write ('Введите a[', i,']=') ;

readln (a[i]) ;

end;

writeln ('Введите число') ;

readln (b) ;

for i:=1 to 10 do

begin

if a[i]
p:=p*a[i];

end;

for i:=1 to 10 do

write (a[i],' ') ;

writeln;

writeln ('Произведение элементов, меньших ', b,', равно ', p) ;

end.