С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Перекодировать Метки=>Процедуры http://www.cyberforum.ru/pascal/thread213653.html
Помогите пожалуйста с курсачом.Прога работает и все сделано, но дело в том что я писал через метки, а препод не принимает.Прошу помочь перевести мою прогу в процедуры, а то у самого не получается( не...
Pascal Заполнить строку нулей матрицы средним арифметическим по столбцам, а столбец - средним по строкам В матрице(10на10) имеются строка и столбец, содержащие только элементы, раввные нулю. Заполните эту строку средним арифметическим по столбцам, а столбец-средним арифметическим по строкам. ... http://www.cyberforum.ru/pascal/thread213648.html
Pascal Рвбота с динамической памятью
Создать массив в динамической памяти A(n). Найти сумму элементов,которые кратны 5.
необходимо найти сумму до тех пор пока не дойдет до заданного значения! Pascal
Вот, программа все испробовал, ошибка (( Program Labl4; uses crt; const a=0.01; var Sum,B:real; n:integer; begin clrscr;
Pascal Работа с файлами. Поменять местами строки. http://www.cyberforum.ru/pascal/thread213633.html
Вообщем, было дано первое задание по работе с файлами, теория по этой части я к сожалению пропустил:( Дано два файла:file1.txt и file2.txt, нужно из первого файла строки записать в другой файл,...
Pascal "Деревья" Возникла проблема в написании программы с деревьями. Проблема в то, что программа выводит все "левые листья", а надо вывести только одно первое (минимальное). В задании выводит только "5", у меня... подробнее
csn
0 / 0 / 0
Регистрация: 30.10.2015
Сообщений: 3
18.12.2010, 00:54 0

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

18.12.2010, 00:54. Просмотров 1007. Ответов 15
Метки (Все метки)

Ответ

Предлагаю альтернативу.
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
program f1;
var max, temp, i,j:integer;
 arr:array[1..5],[1..5] of integer;
begin
max:=0;
//Ввод
for i:=1 to 5 do
    for j:=1 to 5 do
        begin
            Write('Ar[',i,j,']=');
            readln(ar[i,j]);
        end;
for i:=1 to 5 do 
    begin
        temp:=0;
        //Находим значение строки суммы модулей в строке
        for j:=1 to 5
             temp:=temp+abs(ar[j,i]) 
        if max>temp then max:=temp //Сравниваем значение с максимумом
    end;
 
//Вывод строки с максимальной суммой
writeln('Строка с макс. суммой=',max);
end.


Вернуться к обсуждению:
Вывести номер столбца матрицы N*N, который обладает наибольшей суммой модулей элементов. Если таких столбиков несколько, то взять первый из них.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2010, 00:54
Готовые ответы и решения:

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

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

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

Вывести "ДА", если сумма элементов первого столбца совпадает с суммой элементов последнего столбца
Заполнен двумерный массив 4 на 3 с клавиатуры. Вывести "ДА", если сумма...

Вывести "ДА", если сумма первого столбца матрицы совпадает с суммой второго столбца
Заполнить двумерный массив 4 на 3 с клавиатуры, вывести"ДА" , если сумма...

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