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

[DaryllDixonn]

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

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

Попробуй научиться читать.

Кроме методичек и учебников, подобные темы "пережёвывались" поколениями учащихся.
Здесь есть FAQ - ссылка выделенная красным цветом в верху этой страницы. В FAQ должна быть статья с примерами и пояснениями.

Начни с чего-нибудь.

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

[DaryllDixonn]

Попробуй научиться читать.

Кроме методичек и учебников, подобные темы "пережёвывались" поколениями учащихся.
Здесь есть FAQ - ссылка выделенная красным цветом в верху этой страницы. В FAQ должна быть статья с примерами и пояснениями.

Начни с чего-нибудь.

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

Код

uses crt;

  const P = 5;
        Q = 4;

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

procedure ShowTablePQ;
begin
clrscr;

  for i := 1 to P do
      write('     P',i);
  writeln;
  writeln('---------------------------------------');

  for i := 1 to Q do
  BEGIN
   writeln('Q',i);
    for j := 1 to P do
      begin
        write('':6,PQ[i,j]);
        Sum:=Sum + PQ[i,j];
      end;

   if Sum > 0 then
     begin
       writeln(' ':5,'Sum=',Sum);
       if Sum > MaxSum then
          begin
            MaxSum:=Sum;
            IndexMaxSum:=i;
          end;
     end;
    
   Sum:=0;
  END;
  
end;

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

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

Сообщение отредактировано: DaryllDixonn - 23.12.2014 5:05