В матрице 3*4 найти произведение элементов кратных 3 и 9 - Pascal

Формулировка задачи:

в матрице 3*4 найти произведение элементов кратных 3 и 9

Код к задаче: «В матрице 3*4 найти произведение элементов кратных 3 и 9 - Pascal»

textual
type
  mas = array [1..3, 1..4] of integer;
 
var
  a: mas;
  i, j, p: integer;
 
begin
  randomize;
  p := 1;
  for i := 1 to 3
    do
    for j := 1 to 4
    do
    begin
      A[i, j] := random(256);
      if (A[i, j] mod 3 = 0) or (A[i, j] mod 9 = 0)
        then p *= A[i, j];
    end;
  writeln(p);
end.

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ