Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Sabes
0 / 0 / 0
Регистрация: 05.02.2016
Сообщений: 21
#1

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

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

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

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

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

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

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

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

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

2
ezhukov67
22 / 22 / 31
Регистрация: 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
3556 / 2250 / 1152
Регистрация: 22.11.2013
Сообщений: 5,922
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 найти строку с минимальной и столбец с максимальной суммой элементов - Pascal
Спасайте!Не могу решить(( Дана матрица X размерности nXm.В матрице X найти строку с минимальной и столбец с максимальной суммой...

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

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

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


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

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

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