Дан одномерный массив состоящий из 30 элементов целого типа. Найти произведение элементов массива, больше некоторого Х (вводится пользователем с клавиатуры) вывести результат на экран. Нарисовать блок схему

Question

Информатика

Арсентий

24 мая, 21:50

Дан одномерный массив состоящий из 30 элементов целого типа. Найти произведение элементов массива, больше некоторого Х (вводится пользователем с клавиатуры) вывести результат на экран. Нарисовать блок схему

+5

Ответы (1)

Знаете ответ?

Таиса · Answer 1

Var m:array[1 ... 30] of integer;

x, s, i:integer;

begin

randomize;

readln (x) ;

s:=1;

For i:=1 to 30 do

m[i]:=random (101) ;

For i:=1 to 30 do

If m[i]>x then s:=s*m[i];

writeln ('Произведение элементов массива = ', s) ;

end.