Двумерные массивы, Вывод, поиск, операции с двумерными массивами Опции

[DaryllDixonn]

Дана матрица A[5,4] масс грузов P-отправителей, Q-получателя; P=5;Q=4 при распечатке:
1) Ввести матрицу по строкам и получить распечатку матрицы.
2) Определить сумму элементов каждой строки.
3) Определить строку с максимальной суммой и разместить её первой (поменяв при необходимости местами).
4) Реализовать выбор всех элементов матрицы > больше 10 т. и вывод их значений и индексов.

[Федосеев Павел]

Круто!

Возможно, ты был невнимателен, но в условии говорится о матрице А[5,4], а ты определяешь A[4,5]. И в дальнейшем используешь обращения PQ[j, i] вместо привычных глазу PQ[i, j].

В процедуре вывода матрицы я бы ограничился только выводом, без подсчёта суммы. А сам подсчёт выполнял бы в другом месте.

При вычислении суммы, ты обнуляешь переменную где-то в конце, а не перед вычислением суммы строки.


В итоге, сделал бы так:

uses
  crt;

const
  P = 5;
  Q = 4;

var
  i, j, IndexMaxSum: integer;
  PQ:      array[1..P, 1..Q] of real;
  Sum, MaxSum, Mem: real;
  QSummes: array[1..Q] of real;

  procedure ShowTablePQ;
  begin
    clrscr;

    for j := 1 to Q do
      Write('     Q', j);
    writeln;
    writeln('---------------------------------------');

    for i := 1 to P do
    begin
      Write('P', i);
      for j := 1 to Q do
      begin
        Write(PQ[i, j]: 7: 2);
      end;
      writeln;
    end;

  end;

begin

  for i := 1 to P do
    for j := 1 to Q do
    begin
      Write('  P', i, ' --> Q', j, ' =');
      Read(PQ[i, j]);
    end;

  ShowTablePQ;

  Writeln('Суммы строк матрицы:');
  for i := 1 to P do
  begin
    Sum := 0;
    for j := 1 to Q do
      Sum := Sum + PQ[i, j];
    if (i = 1) or (Sum > MaxSum) then
    begin
      MaxSum      := Sum;
      IndexMaxSum := i;
    end;
    writeln(' Строка ', i, ' Sum=', Sum: 0: 2);
  end;
  writeln('Максимальная сумма (', MaxSum: 0: 2, ') в строке ', IndexMaxSum, '.');

  writeln;
  writeln('Выносим строку с максимальной суммой на первую позицию');
  readln;
  for j := 1 to Q do
  begin
    Mem      := PQ[1, j];
    PQ[1, j] := PQ[IndexMaxSum, j];
    PQ[IndexMaxSum, j] := Mem;
  end;

  ShowTablePQ;

  writeln;

  writeln('Выводим все элементы c грузом > 10');
  readln;
  writeln('-START-------------------');
  for i := 1 to P do
    for j := 1 to Q do
      if PQ[i, j] > 10 then
        writeln('  P', i, ' --> Q', j, ' =', PQ[i, j]);
  writeln('---------------------END-');
end.

[Гость]

Круто!

Возможно, ты был невнимателен, но в условии говорится о матрице А[5,4], а ты определяешь A[4,5]. И в дальнейшем используешь обращения PQ[j, i] вместо привычных глазу PQ[i, j].

В процедуре вывода матрицы я бы ограничился только выводом, без подсчёта суммы. А сам подсчёт выполнял бы в другом месте.

При вычислении суммы, ты обнуляешь переменную где-то в конце, а не перед вычислением суммы строки.
В итоге, сделал бы так:

uses
  crt;

const
  P = 5;
  Q = 4;

var
  i, j, IndexMaxSum: integer;
  PQ:      array[1..P, 1..Q] of real;
  Sum, MaxSum, Mem: real;
  QSummes: array[1..Q] of real;

  procedure ShowTablePQ;
  begin
    clrscr;

    for j := 1 to Q do
      Write('     Q', j);
    writeln;
    writeln('---------------------------------------');

    for i := 1 to P do
    begin
      Write('P', i);
      for j := 1 to Q do
      begin
        Write(PQ[i, j]: 7: 2);
      end;
      writeln;
    end;

  end;

begin

  for i := 1 to P do
    for j := 1 to Q do
    begin
      Write('  P', i, ' --> Q', j, ' =');
      Read(PQ[i, j]);
    end;

  ShowTablePQ;

  Writeln('Суммы строк матрицы:');
  for i := 1 to P do
  begin
    Sum := 0;
    for j := 1 to Q do
      Sum := Sum + PQ[i, j];
    if (i = 1) or (Sum > MaxSum) then
    begin
      MaxSum      := Sum;
      IndexMaxSum := i;
    end;
    writeln(' Строка ', i, ' Sum=', Sum: 0: 2);
  end;
  writeln('Максимальная сумма (', MaxSum: 0: 2, ') в строке ', IndexMaxSum, '.');

  writeln;
  writeln('Выносим строку с максимальной суммой на первую позицию');
  readln;
  for j := 1 to Q do
  begin
    Mem      := PQ[1, j];
    PQ[1, j] := PQ[IndexMaxSum, j];
    PQ[IndexMaxSum, j] := Mem;
  end;

  ShowTablePQ;

  writeln;

  writeln('Выводим все элементы c грузом > 10');
  readln;
  writeln('-START-------------------');
  for i := 1 to P do
    for j := 1 to Q do
      if PQ[i, j] > 10 then
        writeln('  P', i, ' --> Q', j, ' =', PQ[i, j]);
  writeln('---------------------END-');
end.

Program1.pas(18) : Переменная цикла for должна описываться в том же блоке, что и цикл for