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

Question

Информатика

Миколай

2 сентября, 08:27

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

+1

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