Массив содержит 10 случайных чисел от 10 до 20. определите произведение чисел кратных 3 и...

Question

Массив содержит 10 случайных чисел от 10 до 20. определите произведение чисел кратных 3 и их количество

Answer 1

Var
  i, pr, k: byte;
  arr: array[1..10] of byte;

begin
  randomize();
  pr := 1;
  k := 0;
  for i := 1 to 10 do
  begin
    arr[i] := random(11) + 10;
    if arr[i] mod 3 = 0 then begin
      pr := pr * arr[i];
      k := k + 1;
    end;
  end;
  writeln(arr);
  writeln('Произведение чисел, кратных 3-м = ', pr);
  writeln('Кол-во этих чисел = ', k);
end.