Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Sabes
0 / 0 / 1
Регистрация: 05.02.2016
Сообщений: 27
#1

В матрице найти минимальный элемент того столбца, который обладает максимальной суммой своих элементов - Turbo Pascal

14.06.2016, 21:09. Просмотров 206. Ответов 2
Метки нет (Все метки)

Помогите составить программу:
В матрице найти минимальный элемент того столбца, который обладает максимальной суммой своих элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2016, 21:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В матрице найти минимальный элемент того столбца, который обладает максимальной суммой своих элементов (Turbo Pascal):

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

Найти наименьшее из значений элементов столбца, который обладает наибольшей суммой модулей элементов.
Дана целочисленная квадратная матрица порядка 8. Найти наименьшее из значений...

Вывести номер столбца матрицы N*N, который обладает наибольшей суммой модулей элементов. Если таких столбиков несколько, то взять первый из них.
Задание: Вывести номер столбца матрицы N*N, который обладает наибольшей суммой...

Найти сумму элементов того столбца массива, в котором расположен минимальный элемент матрицы
найти сумму элементов того столбца массива а(3,3), в котором расположен...

В матрице найти столбец с максимальной суммой элементов
найти столбец с максимальной суммой элементов

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

2
ezhukov67
22 / 22 / 39
Регистрация: 10.05.2014
Сообщений: 52
14.06.2016, 22:04 #2
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
uses  Crt;
const n=10;
type  Tmatr=array[1..n,1..n] of integer;
var   a:Tmatr;
      i,j,min,sum,t,k:integer;
begin
      ClrScr;
      Writeln('Matrix:'); Writeln; Randomize;
      sum:=-MaxInt; t:=0; k:=0;
      for i:=1 to n do
       begin
         for j:=1 to n do
          begin
            a[i,j]:=Random(98)+1;
            Write(a[i,j]:4);
          end;
         Writeln;
       end;
      Writeln;
      for j:=1 to n do
        begin
          for i:=1 to n do
           t:=t+a[i,j];
          if t>sum
           then begin
                 sum:=t;
                 t:=0;
                 k:=j;
               end
          else   t:=0;
        end;
       min:=MaxInt;
        for i:=1 to n do
         if a[i,k]<min then
          min:=a[i,k];
       Writeln('Max summa v stolbce: ',k);
       Writeln('Min v stolbce ',k,' = ',min);
      ReadKey;
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
15.06.2016, 10:28 #3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от ezhukov67 Посмотреть сообщение
Pascal
22
23
24
25
26
27
28
29
30
          for i:=1 to n do
           t:=t+a[i,j];
          if t>sum
          then begin
                      sum:=t;
                      t:=0;
                      k:=j;
          end
          else       t:=0;
Обратите внимание, у вас одно и то же действие присутствует в обоих ветках условного оператора. Обычно это означает, что его стоит выполнять вне этого оператора. Обнулять аккумулятор непосредственно перед набором суммы, а не где-то еще, тоже неплохая привычка, способствующая сокращению ошибок при написании/модификации.
Итого:
Pascal
22
23
24
25
  t:=0; for i:=1 to n do t:=t+a[i,j];
  if sum<t then begin
    sum:=t; k:=j;
  end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2016, 10:28
Привет! Вот еще темы с решениями:

В матрице X найти строку с минимальной и столбец с максимальной суммой элементов
Спасайте!Не могу решить(( Дана матрица X размерности nXm.В матрице X найти...

В матрице найти первую по порядку строку с максимальной суммой модулей её элементов
б) В матрице А найти первую по порядку строку с максимальной суммой модулей её...

В матрице найти строки с максимальной и минимальной суммой положительных элементов. Как упростить?
P1 := Low(Integer); // Левая граница значений Integer равная -2147483648 ...

В матрице найти строку с максимальной суммой элементов и поэлементно заменить ее первой строкой.
Можете кто нибудь пожалуйста помочь написать программу на Паскале? В программе...


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

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

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