Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Создать третью матрицу, каждый элемент которой равен произведению соответствующих элементов первых двух Ребята нужна срочно ваша помощь !!!! Даны два двумерных массива одинаково размера. Элементы первого массива все двойки, эелементы второго случайные числа из дииапопазона 25-100 Создать третий массив того же размера каждый элемент равен произведению соответствующих элементов первых двух. И вывести исходные в виде таблицы. https://www.cyberforum.ru/ pascalabc/ thread2192734.html Pascal ABC Столбцевой перестановочный шифр
Здравствуйте, помогите, пожалуйста. Нужно реализовать простой столбцевой перестановочный шифр. ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКИ П|Р|О|Г|Р|А|М М|Н|О|Е| |О|Б Е|С|П|Е|Ч|Е|Н И|Е| |В|Ы|Ч|И С|Л|И|Т|Е|Л|Ь Н|О|Й| |Т|Е|Х
Pascal ABC Задача со множествами https://www.cyberforum.ru/ pascalabc/ thread2192655.html
Дана не пустая последовательность слов из строчных русских букв,между соседними словами пробел, за последним словом точка. Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят в каждое нечётное слово и в то же время не входят в каждое чётное слово. А ещё написать текст программы так, чтобы всё правильно работало если пробелов будет несколько. И если текст, который ввели не...
Pascal ABC Определить количество точек, лежащих во второй четверти, и вывести их координаты Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих во второй четверти и вывести на экран их координаты. Помогите пожалуйста https://www.cyberforum.ru/ pascalabc/ thread2192508.html
Pascal ABC Составить программу которая находит число квадратов пересекаемых диагональю
Прямоугольник , стороны которого выражены целыми числами M и N, разбит на квадраты со стороной К. Составить программу которая находит число квадратов пересекаемых диагональю.
Pascal ABC Упорядочить элементы, расположенные между первыми и вторым положительными элементами по убыванию значений элементов Дан массив А размера N. Упорядочить элементы, расположенные между первыми и вторым положительными элементами по убыванию значений элементов. https://www.cyberforum.ru/ pascalabc/ thread2192402.html
Pascal ABC Найти строчку в которой сумма 2 и 3 элемента минимальна и переписать ее в новый массив Нужно найти строчку в которой сумма 2 и 3 элемента минимальна и переписать эту строчку в новый массив. Новый массив не выводится, в чем проблема? const n=4; m=4; var A : array of integer; i,j,ns,min,v: integer; B : array of integer; https://www.cyberforum.ru/ pascalabc/ thread2192382.html Pascal ABC Вычислить произведение ненулевых элементов одномерного числового массива
Дан одномерный числовой массив, все элементы которого различны. Если сумма всех элементов, расположенных между максимальным и минимальным элементами массива, меньше 10, то вычислить произведение ненулевых элементов одномерного числового массива; в противном случае найти количество элементов массива, кратных минимальному, и их произведение. Помогите, пожалуйста, написать код программы. Pascal
Pascal ABC Нарисовать человечка. https://www.cyberforum.ru/ pascalabc/ thread2192299.html
Пожалуйста, нарисуйте такого человечка.
Pascal ABC Поменять местами элементы с четными и нечетными индексами, если оба они кратны минимальному В одномерном числовом массиве поменять местами элементы с четными и нечетными индексами, если оба они кратны минимальному, и заменить эти элементы их индексами в обратном случае. Помогите, пожалуйста, написать код программы. Pascal https://www.cyberforum.ru/ pascalabc/ thread2192162.html
Pascal ABC Найти квадрат суммы максимальной и минимальной цифр заданного числа
дано натуральное число n найти квадрат суммы максимальной и минимальной цифр, как решить хз
Pascal ABC Решение алгебраических и трансцедентных уравнений комбинированным методом хорд и касательных Задание: отделите аналитически один из коней данного уравнения и определите его с точностью до Е=0.5*10^-5 комбинированным методом хорд и касательных. Мой пример: 2x^3+9x^2-21=0 Нужно отделить корни уравнения аналитически и выберите один из отрезков изоляции, на котором выполняются условия применимости метода. Нужно взять соответствующие начальные приближения и найти вручную первые... https://www.cyberforum.ru/ pascalabc/ thread2191772.html
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
20.02.2018, 11:35 0

Найти сумму наибольших значений строк и произведение наименьших значений столбцов матрицы - Pascal ABC - Ответ 12137198

20.02.2018, 11:35. Показов 2499. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
type matr = array[1..100, 1..100] of real;
 
function MaxRow(a: matr; i, m: integer): real;
var j, max: integer;
begin
  max := 1;
  for j := 2 to m do
    if a[i, max] < a[i, j] then
      max := j;
  MaxRow := a[i, max];
end;
 
function MinCol(a: matr; j, n: integer): real;
var i, min: integer;
begin
  min := 1;
  for i := 2 to n do
    if a[min, j] > a[i, j] then
      min := i;
  MinCol := a[min, j];
end;
 
var a: matr;
    i, j, n, m: integer;
    sum, mul: real;
begin
  sum := 0; mul := 1;
  randomize;
  write('N, M = '); read(n, m);
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := random * 31 - 15;
      write(a[i, j]:8:3);
    end;
    sum := sum + MaxRow(a, i, m);
    writeln;
  end;
  for j := 1 to m do
    mul := mul * MinCol(a, j, n);
  writeln('Sum = ', sum:0:3, '; Mul = ', mul:0:3);
end.


Вернуться к обсуждению:
Найти сумму наибольших значений строк и произведение наименьших значений столбцов матрицы Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.02.2018, 11:35
Готовые ответы и решения:

Найти сумму наибольших значений элементов строк матрицы, а также произведение наименьших элементов её столбцов
Помогите, пожалуйста. Буду очень признательна. Дана действительная матрица размера MxN. Найти...

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

Найти сумму наибольших значений элементов строк матрицы
Дана действительная матрица размера m * n. Найти сумму наибольших значений элементов её строк.

Найти сумму наибольших значений строк матрицы
Составить подпрограммы для решения следующих задач: 1. Даны натуральные M, N и матрица...

2
20.02.2018, 11:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.02.2018, 11:35
Помогаю со студенческими работами здесь

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

Найти сумму значений наибольших элементов строк матрицы
помогите пожалуйста решить задачу дана действительная матрица размера m*n. найти сумму значений...

Найти сумму наибольших значений элементов строк матрицы
Помогите пожалуйста сделать. Дана вещественная матрица размером n х m. Найти сумму...

Найти сумму наибольших значений элементов строк матрицы
нужно составить следующие алгоритмы(текстовые): 1)Дана матрица размера m на n ,найти сумму...

Найти сумму наибольших значений элементов строк матрицы
10)Дана целочисленная матрица размером nХm. Написать программу, позволяющую находить сумму...

Найти сумму наибольших значений элементов строк матрицы
Добрий день товарищи. Помогите решить задачи. 1. Задана действительная матрица размера 3*4. Найти...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru