Найти строку матрицы с максимальной по модулю суммой элементов

@lion-6v · Регистрация: 19.12.2012

Студворк — интернет-сервис помощи студентам

Выполнить следующие задания, если задана действитель-
ная матрица порядка nxm.
Среди строк заданной матрицы, содержащих только нечетные эле-
менты, найти строку с максимальной по модулю суммой элемен-
тов.
Задача нужна до 29,03,13

Kodzaev · 28.03.2013, 20:34

Pascal

Var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m,k: Byte;
  ind,max,s: Integer;
BEGIN
Writeln('Введите размеры матрицы: ');
Readln(n,m);
Writeln('Введите элементы: ');
For i:=1 to n do
For j:=1 to m do
Readln(x[i,j]);
For i:=1 to n do
begin
  k:=0;
  s:=0;
  For j:=1 to m do
  begin
    Write(x[i,j]:4);
    s:=s+Abs(x[i,j]);
    If Odd(x[i,j]) Then Inc(k);
  end;
  If k=m Then
  Write('     (',s,')');
  If (k=m) and (s>max) Then
  begin
    max:=s;
    ind:=i;
  end;
  Writeln;
end;
Writeln('Строка с максимальной по модулю суммой элементов: ',ind);
END.

Добавлено через 4 минуты
Подожди... Только сейчас увидел, что матрица вещественная... И как определить четность/нечетность вещественного числа? По целой части?

@lion-6v 0 / 0 / 3 Регистрация: 19.12.2012 Сообщений: 93
		1
	Найти строку матрицы с максимальной по модулю суммой элементов 28.03.2013, 19:59. Показов 1061. Ответов 1 Метки нет (Все метки) Выполнить следующие задания, если задана действитель- ная матрица порядка nxm. Среди строк заданной матрицы, содержащих только нечетные эле- менты, найти строку с максимальной по модулю суммой элемен- тов. Задача нужна до 29,03,13 0

Опции темы

Найти строку матрицы с максимальной по модулю суммой элементов

Решение