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

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


textual

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

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



Похожие ответы
  1. Составить программу формирования по вещественной квадратной матрице А={a}_{ij},i=1/n,j=1/m логического вектора B={b}_{i},i=1/n,где {b}_{i} имеет значение true, если наибольший элемент в строке с номером i матрицы А не больше заданного Х,и значение false-в противном случае

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

  1. Дана целочисленная прямоугольная матрица. 1) найти номера строк, в которых на всех нечетных позициях стоят нули; 2) определить количество различных элементов матрицы

  1. Дана матрица С(5х5) положительных и отрицательных элементов 1) Ввести элементы матрицы и вывести на экран дисплея. 2) Вывести на экран дисплея элементы главной диагонали (i=j), определить их сумму и число положительных элементов главной диагонали. 3) Включить в матрицу дополнительную строку с заданным номером K (K=6), вывести на экран новую матрицу С1. 4) Реализовать поиск элемента по его индексам и вывод его на экран. Начало у меня было положено, сделал первый и половину второго пункта:

  1. Помогите пожалуйста. Сам в программировании нуб, но надо написать программу в Pascal. Дана квадратная матрица А из целых чисел. 1. Она разбита по диагоналям на четыре области: север, юг, восток, запад. Считается, что элементы по диагонали не принадлежат этим областям. Найдите максимальный элемент каждой области. 2. Найденные элементы вывести в порядке убывания. Для отладки программы исходную матрицу сформировать с помощью генератора случайных чисел. Спасайте ребятки...

  1. Дана матрица 10 на 10.Найти среднее арифметическое последнего столбца в матрице с помощью процедуры

  1. Помогите написать программу , в матрице найти два столбца равными суммами сумами и поменять их элементы местами.

  1. С помощью датчика случайных чисел сформировать двумерный массив N*N и упорядочить(переставить) строки матрицы по неубыванию значений наименьших элементов строк.

  1. В квадратной матрице переставить строки так, чтобы количество ненулевых элементов в строках росла от первой строки до последней.