Построение, преобразование и обработка матриц

@Grixxxan · Регистрация: 21.09.2014

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

Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных нечетных элементов. Определить номер строки с наименьшей характеристикой.Будьте добры-напишите код

Kodzaev · 11.11.2014, 22:43

Pascal

const
  rows = 3; {количество строк}
  cols = 4; {количество столбцов}
 
var
  x: array [1..rows, 1..cols] of integer;
  i, j, n: byte;
  s, min: integer;
 
begin
  Randomize;
  n := 0;
  min := 0;
  for i := 1 to rows do
  begin
    s := 0;
    for j := 1 to cols do
    begin
      x[i, j] := Random(11) - 5;
      if x[i, j] < 0 then
        s := s + x[i, j];
      Write(x[i, j]:5)
    end;
    if s < min then
    begin
      min := s;
      n := i
    end;
    WriteLn
  end;
  if n = 0 then
    WriteLn('В матрице нет отрицательных элементов')
  else
    WriteLn('Номер строки с наименьшей характеристикой: ', n);
  ReadLn
end.

@Grixxxan 1 / 1 / 0 Регистрация: 21.09.2014 Сообщений: 13
		1
	Построение, преобразование и обработка матриц 11.11.2014, 22:21. Показов 1105. Ответов 1 Метки нет (Все метки) Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных нечетных элементов. Определить номер строки с наименьшей характеристикой.Будьте добры-напишите код 0

	11.11.2014, 22:43

Построение, преобразование и обработка матриц

Решение