[Makotya]

дана квадратная матрица n*n.построить массив,содержащий макс элементы матрицы по столбцам ниже дополнит диагонали.диагональ не включается.

вдруг кому то понадобится))

Код:

program LR_5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=3;

type Tmatr = array[1..n,1..n] of integer;
type Tmas = array[1..n] of integer;
  procedure vvod_matr(var m1: Tmatr);
  var i,j: integer;
  begin
    for i:=1 to n do
      for j:=1 to n do
      begin
        write('m1[',i,',',j,']= ');
        readln(m1[i,j]);
      end;
  end;

  procedure max_el(const m1: Tmatr; var m2:Tmas);
  var i,j,max: integer;
  begin
    for j:=2 to n do
    begin
        max:=m1[n,j];
        for i:=n-j+2 to n-1 do
        begin
            if m1[i,j]>max then
               max:=m1[i,j];
        end;
        m2[j-1]:=max;
    end;
  end;
  procedure print_matr(const m1:Tmatr);
  var i,j:integer;
  begin
      for i:=1 to n do
      begin
         for j:=1 to n do
          begin
            if (j=1) then writeln;
            write(m1[i,j]:4);
          end;
      end;
            writeln;
 end;
procedure print_mas(const m2:Tmas);
var i: integer;
begin
    for i:=1 to n-1 do
    writeln('m2[',i,'] = ',m2[i]);
end;

var
m1:Tmatr;
m2:Tmas;
begin
  vvod_matr(m1);
  max_el(m1,m2);
  print_matr(m1);
  Writeln;
  print_mas(m2);
  readln;
end.

Admin: Пользуемся тегами!!!