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

@Sant441 · Регистрация: 25.05.2011

Напишите программу, пожалуйста!!! Практика горит!

@MAZUR777 · 17.06.2011, 12:18

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.

@Sant441 0 / 0 / 1 Регистрация: 25.05.2011 Сообщений: 23
		1
	Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов 17.06.2011, 09:04. Показов 2715. Ответов 1 Метки нет (Все метки) Напишите программу, пожалуйста!!! Практика горит! 0

Опции темы

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

Решение