Question

Заполните случайными числами в диапазоне от 0 до 140 массив A [1:10]. Вычислите произведение таких элементов массива, которые кратны 3 или кратны 4. ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Answer 1

// PascalABC.Net

var A: array [1..10] of integer;

i, prod: integer;

begin

   for i := 1 to 10 do

   begin

       A[i] := random(0, 140);

       write(A[i], ' ');

   end;

   writeln();

   

   prod := 1;

   for i := 1 to 10 do

       if (A[i] mod 3 = 0) or (A[i] mod 4 = 0) then

           prod := prod * A[i];

   writeln(prod);

end.