Определить положение максимального элемента в строке матрицы имеющий минимальную сумму положительных элементов - Turbo Pascal

Формулировка задачи:

"определить положение максимального элемента в строке матрицы имеющий минимальную сумму положительных элементов"

Код к задаче: «Определить положение максимального элемента в строке матрицы имеющий минимальную сумму положительных элементов - Turbo Pascal»

textual
uses crt;
 
const
  nmax = 10;
  mmax = 10;
 
var
  A : array [1..nmax, 1..mmax] of integer;
  i, j, n, m : integer;
  sum, minsum, isum : integer;
  max, jmax : integer;
  
begin
  ClrScr;
  Repeat
    Write('Количество строк (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не более ', mmax, ') = ');
    Readln(m);
  until m in [1..mmax];
  Writeln('Введите элементы: ');
  for i := 1 to n do
    for j := 1 to n do
      Read(A[i, j]);
  ClrScr;
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(A[i, j], ' ');
      Writeln;
    end;
  for j := 1 to m do
    if A[1, j] > 0 then sum := sum + A[1, j];
  isum := 1;
  minsum := sum;
  for i := 2 to n do
    begin
      sum := 0;
      for j := 1 to m do if A[i, j] > 0 then sum := sum + A[i, j];
      if sum < minsum then
        begin
          isum := i;
          minsum := sum;          
        end;
    end;
  jmax :=  1;
  max := A[isum, 1];
  for j := 2 to m do
    if max < A[isum, j] then 
      begin
        jmax := j;
        max := A[isum, j];
      end;
  Writeln('Положение элемента [', isum, ';', jmax, ']');
  Readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.667 из 5


СДЕЛАЙТЕ РЕПОСТ