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

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

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.

Похожие ответы
  1. В квадратной матрице найти произведение элементов, лежащих выше побочной диагонали.

  1. помогите пожалуйста написать код задачи!!!Очень прошу!!! В массиве А[К,М] найти количество элементов с нечетным произведением индексов.

  1. Помогите кто может((( Нужно очень очень срочно решить задачу на паскале Даны две матрицы A и B. Вычислить в каждой матрице произведение нечётных элементов. Для матрицы с меньшим произведением найти минимальный элемент и его индексы. Ввести с клавиатуры строку текста и удалить все буквы “о”. За ранее огромнейшее спасибо!!

  1. Очень нужна помощь в написании программы, что ниже. Заранее ОГРОМНОЕ спасибо! - Задача 3. Дана матрица (nxm). Найти произведение элементов каждой строки.Добавлено через 4 часа 38 минут Help!

  1. В данной целочисленной матрице 5*6 найти номер столбца с наибольшим по модулю произведением.

  1. В матрице n-го порядка найти сумму элеметнов, лежащих выше побочной диагонали, и произведение элементов лежащих ниже главной диагонали. Спасибо!

  1. Помогите решить задачу! В матрице А[7,8] найти произведение элементов, значение которых меньше последнего элемента матрицы. Если таких элементов нет, то на печать выдать соответствующее сообщение.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика