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

Question

Информатика

Каллист

28 марта, 14:36

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

+5

Ответы (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.