Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Из заданного числа вычли сумму https://www.cyberforum.ru/ pascalabc/ thread321299.html Из заданного числа вычли сумму его его цифр. Из результата вновь вычли сумму его цифр и т.д. Сколько таких действий надо произвести, чтобы получился нуль.	Pascal ABC Найти наименьший номер члена последовательности, для которого выполняется условие помогите с задачей... Плиз
Pascal ABC Удаление из интервала а и б Сжать массив , удалив из него все элементы , модуль которых находиться в интервале . Освободившиеся в конце массива элементы заполнить нулями!!! Интервал задаётся с клавиатуры!!! https://www.cyberforum.ru/ pascalabc/ thread321276.html	Pascal ABC Найти сумму элементов массива, расположенных между первым и последним нулевым элементами https://www.cyberforum.ru/ pascalabc/ thread321233.html Кто может улучшить или как-то оптимизировать...:::??? Найти сумму элементов массива, расположенных между первым и последним нулевым элементами. Мой код... Кто может оптимизируйте... Интересно...
Pascal ABC напишите программу обработки числовой последовательности. Необходмо: напишите программу обработки числовой последовательности.Сколько чисел содержится в списке неизвестно, но длина списка не превышает 100. Необходмо: 1)определить максимальное и минимальное число...	Pascal ABC Выстроить числа в порядке убывания Легкая вроде, но никак не могу ее написать правильно: "Даны числа А, В, С. Выстроить числа в порядке убывания". https://www.cyberforum.ru/ pascalabc/ thread321184.html
Pascal ABC Вычислить 7^123 https://www.cyberforum.ru/ pascalabc/ thread321167.html Помогите пожалуйста.	В строке заменить все двоеточия (:) точкой с запятой (;). Подсчитать количество замен Pascal ABC Помогите с программой! пожалуйста!
Pascal ABC изобразить Шар подвешен на пружине.Изобразить движение шара с пружиной при прикладывании к нему вертикальной силы. https://www.cyberforum.ru/ pascalabc/ thread321104.html	Pascal ABC надо составить ручной расчет https://www.cyberforum.ru/ pascalabc/ thread321095.html на эти две проги 1) Program na4; var n,m,c1,cp:integer;k,i:byte; begin write('n='); read(n); cp:=n mod 10; n:=n div 10; m:=n;
Указать индексы элемента матрицы с найденным значением Pascal ABC Дана действительная матрица размером n x m, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать ин-дексы...	Pascal ABC Определить общее число детей, учащихся в первых, третьих, пятых и т.д. классах школы Известно число детей, учащихся во всех первых классах, во всех вторых,...,во всех одиннадцатых. Определить общее число детей, учащихся в первых, третьих, пятых и т.д. классах школы. Оператор цикла с... https://www.cyberforum.ru/ pascalabc/ thread321088.html

MAZUR777

610 / 135 / 132

Регистрация: 15.04.2010

Сообщений: 554

17.06.2011, 12:18

Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов - Pascal ABC - Ответ 1768281

17.06.2011, 12:18. Показов 2731. Ответов 1

Метки (Все метки)

Сообщение было отмечено Sant441 как решение

Решение

Pascal

uses CRT;
 
const N=5;
 
A:array[1..N, 1..N]of integer=(
 
(1, 1, 1, 1, 1),
 
(1, 2, 3, 4, 5),
 
(1, 2, 3, 4, 5),
 
(2, 2, 2, 2, 2),
 
(1, 3, 3, 7, 5));
 
var i,j,str,sum,max: integer;
 
b: boolean;
 
BEGIN
 
ClrScr;
 
max:= -1;{ нет максимальных }
 
str:= -1;{ строка неизвестна }
 
for i:= 1 to N do begin { цикл по строкам сверху вниз }
 
sum:= 0;
 
b:= false;{ нет нечётных элементов }
 
for j:= 1 to N do begin { цикл по строке }
 
sum:= sum + abs(A[i,j]);
 
if not odd(A[i,j]) then
 
b:= true;{ есть нечётный элемент }
 
end;
 
if (not b) and (sum>max) then begin
 
max:= sum;{ запомнили сумму }
 
str:= i; { и строчку }
 
end;
 
end;
 
WriteLn('Строка [',str,'] с максимальной суммой модулей элементов');
 
WriteLn('< OK >');ReadKey;
 
END.

Вернуться к обсуждению:
Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.06.2011, 12:18

Готовые ответы и решения:

Среди строк заданной целочисленной матрицы A(N,N) содержащих только нечётные элементы, найти строку с максимальной суммой модулей элементов
Среди строк заданной целочисленной матрицы A(N,N) содержащих только нечётные элементы, найти строку...

Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов
Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с...

Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов
#include <iostream> #include <conio.h> #include <cmath> const int m=3,n=3; using namespace std;...

Среди строк целочисленной матрицы, которые содержат только простые числа, найти строку с максимальной суммой элементов
Среди строк целочисленной матрицы, которые содержат только простые числа, найти строку с...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.06.2011, 12:18

Помогаю со студенческими работами здесь

Среди строк матрицы, содержащих только нечетные элементы, найти строку с максимальной суммой модулей элементов
Среди тех строк целочисленной матрицы, содержащих только нечетные элементы, найти строку с...

Среди строк прямоугольной целочисленной матрицы, содержащих только нечетные элементы, найти строку с минимальной суммой входящих в нее элементов
Среди строк прямоугольной целочисленной матрицы, содержащих только нечетные элементы, найти строку...

Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов
2. Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов.

В строках заданной матрицы, содержащих только нечётные элементы, найти строку с максимальной суммой
Среди строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с...

Наверх