Question

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

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.