Найти сумму и произведение элементов матрицы

@Sandro_1886 · Регистрация: 09.11.2019

Студворк — интернет-сервис помощи студентам

Составить программу, которая заполняет целочисленный двумерный массив (матрицу) размерностью 20х20 случайными числами в диапазоне от 0 до 50, выводит его и выполняет с ним указанные действия.
Найти сумму и произведение элементов матрицы.

@ZX Spectrum-128 · 25.12.2019, 13:37

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
const
  n = 20;
  m = 20;
 
type
  matrix = array[1..n, 1..m] of integer;
 
var
  x: matrix;
  s, pr: double;
 
procedure create(var a: matrix);
var
  i, j: integer;
 
begin
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := Random(50);
end;
 
procedure print(a: matrix);
var
  i, j: integer;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    WriteLn;
  end;
  
end;
 
procedure domatrix(b: matrix; var sum, p: real);
var
  i, j: integer;
 
begin
  sum := 0;
  p := 1;
  for i := 1 to n do
    for j := 1 to m do
    begin
      p := p * b[i, j];
      sum := sum + b[i, j];
    end;
end;
 
begin
  create(x);
  print(x);
  domatrix(x, s, pr);
  writeln('Sum:', s, ' Proizvedenire:', pr);
end.

@mr-Crocodile · 25.12.2019, 15:15

Сообщение от ZX Spectrum-128

var sum, p: real

строго говоря, sum должно быть целым числом, т.к. элементы матрицы целые числа и их сумма - целое число.
думаю, что было просто лень описывать дополнительно переменную целого типа для суммы

@ZX Spectrum-128 · 25.12.2019, 16:31

Сообщение от mr-Crocodile

просто лень описывать дополнительно переменную целого типа для суммы

Да даже не подумал об этом, если честно.

@mr-Crocodile · 25.12.2019, 16:34

значит, это я такой зануда!

@Cyborg Drone · 29.12.2019, 00:39

Слишком длинно и не всегда выдаётся верный результат. Да и подпрограммы вроде бы ни к чему. Да ещё и глобальные переменные описаны до подпрограмм... Я бы так написал:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const
  m = 20;
 
var
  x: array[1..m, 1..m] of byte;
  i, j, s: longint;
  p: extended;
 
begin
  randomize;
  s := 0;
  p := 1;
  writeln('Source aray:');
  for i := 1 to m do
    begin
      for j := 1 to m do
        begin
          x[i, j] := random(51);
          write(x[i, j]:3);
          s := s + x[i, j];
          p := p * x[i, j]
        end;
      writeln
    end;
  writeln('Sum: ', s, ' Product: ', p:0:0);
  readln
end.

mr-Crocodile, до меня Вам, как мне кажется, далеко. Вот как надо занудствовать:

Решение от ZX Spectrum-128, строго говоря, неверное.

Да, произведение в большинстве случаев будет равно 0, поскольку вероятность НЕ генерирования 0 на 400 чисел весьма мала, но, всё-таки вероятность эта не нулевая... И есть очень маленькая вероятность того, что все числа будут равны 50. И что тогда?

Максимальное число для типа double равно 1.7976931348623157*10³⁰⁸, а максимально возможное произведение будет

50⁴⁰⁰=
3.87259191484931827281803063328635184757 0219192048790865487762941344416348097685
9648626822342770145969080575425075544675 3937083639899235031552231805065335049200
2436065270530802738432038373174754090809 3676464549424001812701625789688468162611
3039465408860451134387403726577758789062 5*10⁶⁷⁹

Это число в double ну никак не помещается.

Если допустить, что массив не содержит нули, и числа генерируются равномерно, то произведение будет в районе

(50!)⁸=2.4331274561370702434890086532851815075 5021132551684096*10⁶⁶

По мое мнению, в программе необходимо применить длинную арифметику, иначе точный результат будет получен далеко не всегда, даже если double заменить на extended.

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@Sandro_1886 0 / 0 / 0 Регистрация: 09.11.2019 Сообщений: 72

	Найти сумму и произведение элементов матрицы 25.12.2019, 13:30. Показов 3806. Ответов 5 Метки нет (Все метки) Составить программу, которая заполняет целочисленный двумерный массив (матрицу) размерностью 20х20 случайными числами в диапазоне от 0 до 50, выводит его и выполняет с ним указанные действия. Найти сумму и произведение элементов матрицы. 0

@mr-Crocodile 3053 / 1672 / 657 Регистрация: 19.03.2019 Сообщений: 5,380
	25.12.2019, 16:34
	значит, это я такой зануда! 0