дана последовательность целых положительных чисел.найти произведение только тех из них...

Question

дана последовательность целых положительных чисел.найти произведение только тех из них которые больше заданного числа m.если таких чисел нет,то выдать сообщение об этом Паскаль!!! можно с обьяснениями плиз))

Answer 1

program test;
var a: array[1..10] of integer;m, i: integer;
total: longint;
begin
   randomize;
   total:=1;

   for i:=1 to 10 do
   begin
      a[i]:=random(20)+1;
      write(a[i], ' ');
   end;

   writeln();
   write('Enter the number: ');
   readln(m);

   for i:=1 to 10 do
   begin
      if a[i] > m then
         total:= total*a[i];
   end;

   if total > 1 then
      writeln('Total = ', total)
   else
      writeln('Error');
   readln;
end.