Из тех строк данной целочисленной матрицы, которые содержат только нечётные элементы, найти строку с максимальной суммой модулей элементов ответ вывести на печать
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.
вторник, 12 октября 2010 г.
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий