Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 13.11.2019
Сообщений: 7
1

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

13.11.2019, 14:39. Просмотров 971. Ответов 1
Метки нет (Все метки)

Найти произведение минимальных элементов массивов X(n,m) и Y(n,m)
Помогите написать программу.
Буду очень благодарен.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2019, 14:39
Ответы с готовыми решениями:

Найти номера минимальных и максимальных элементов массивов
Описать процедуру MinmaxNum(A, N, NMin, NMax), находящую номера минимального и максимального...

Найти произведение средних арифметических элементов массивов X(n,m) и Y(n,m)
Найти произведение средних арифметических элементов массивов X(n,m) и Y(n,m). Pascal

Найти произведение суммы четных и суммы нечетных элементов массивов
Здравствуйте. Прошу помощи в решении данной задачи, пытался сам ее сделать,но программа не...

Найти произведение двумерных массивов
Помогите пожалуйста, кто знает как сделать. Заданы двумерные массивы A, B, C одинаковых...

1
44 / 30 / 22
Регистрация: 26.03.2019
Сообщений: 155
13.11.2019, 14:44 2
Лучший ответ Сообщение было отмечено SyntheticPlugg как решение

Решение

В качестве исходного взял размер массивов = 3

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
var
  mas1: array[1..3, 1..3] of integer;
  mas2: array[1..3, 1..3] of integer;
  min1, min2: integer;
 
begin
  
  randomize;
  for var st := 1 to 3 do
  begin
    for var sb := 1 to 3 do
    begin
      mas1[st, sb] := random(-10, 10);
      write(mas1[st, sb]:4);
    end;
    writeln();
  end;
  writeln();
  for var st := 1 to 3 do
  begin
    for var sb := 1 to 3 do
    begin
      mas2[st, sb] := random(-10, 10);
      write(mas2[st, sb]:4);
    end;
    writeln();
  end;
  
  min1 := mas1[1, 1];
  min2 := mas2[1, 1];
  for var st := 1 to 3 do
  begin
    for var sb := 1 to 3 do
    begin
      if mas1[st, sb] < min1 then min1 := mas1[st, sb];
      if mas2[st, sb] < min2 then min2 := mas2[st, sb];
    end;
  end;
  
  writeln('Произведение минимальных элементов массивов = ', min1 * min2);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2019, 14:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти их скалярное произведение 2х массивов
Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение.

В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов
Заданы два массива A(N) и B(M). В каждом из массивов найти наименьшее значение и умножить на него...

В каждом из массивов найти наименьшее значение и прибавить его ко всем элементам массивов
Заданы два массива А(N) и В(M). В каждом из массивов найти наименьшее значение и прибавить его ко...

Найти произведение двумерного и одномерного массивов
Задан двухмерный массив A (N, M) и одномерный B (N). Получить их произведение. Напечатать в строк....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.