найти строку с максимальной суммой модулей элементов.

@Solnze2 · Регистрация: 02.06.2010

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

@Lyohich84 · 03.06.2010, 10:31

Pascal

uses crt;
const
n=20;
m=4;
var
i,j,k,b,max,imax:integer;
a:array[1..n,1..m] of integer;
s:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(101)-50;
for i:=1 to n do
 begin
 for j:=1 to m do
  write (a[i,j]:4);
 writeln;
 end;
b:=0;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to m do
   begin
    if (a[i,j] mod 2)=0 then k:=1
   end;
  if k=0 then
   begin
    b:=b+1;
    s[i]:=0;
    for j:=1 to m do
     s[i]:=s[i]+abs(a[i,j]);
   end;
 end;
if b>0 then
 begin
  max:=s[1]; imax:=1;
  for i:=2 to n do
   if s[i]>max then
   begin
    max:=s[i];
    imax:=i;
   end;
  writeln('Stroka s maksim summoy moduley elementov=',imax);
 end
 else
  writeln('Net strok sod tolko nech elementi');
readln;
end.

@Solnze2 1 / 1 / 0 Регистрация: 02.06.2010 Сообщений: 26
		1
	найти строку с максимальной суммой модулей элементов. 03.06.2010, 09:26. Показов 1680. Ответов 1 Метки нет (Все метки) Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы