Pascal массивы

[gmail]

Помогите решить задачу, буду очень признателен.

Ввести двумерный массив D3x5. Вычислить максимальный по модулю элемент (DMAX). С помощью
подпрограммы(умножение матрицы на скаляр) построить массив D1=Dmax*D. Упорядочить его строки по возрастанию с помощью подпрограммы.

[ROMA2PVT]

ну хвастайся наработками.

[gmail]

const n=3; m=5;
type
Mass=array[1..n,1..m] of integer;
var
a:Mass;
I, j, Max: integer;
begin
Clrscr;
Randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[I,j]:=-50+random(101);
write(a[I,j]:4);
end;
writeln;
end;
Max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if Max:<=a[i,j] then
Max:=a[i,j];
Writeln(‘Max=’,Max);
Readln;
end.

Ну вот поиск максимального.
С процедурами собственно загвоздка... Если бы всё подряд

[ROMA2PVT]

вот так строки упорядочешь.

for i:=1 to n do
for j:=1 to m-1 do
for k:=j+1 to m do
if kl[i,j]>kl[i,k] then
 begin
  tex:=kl[i,j];
  kl[i,j]:=kl[i,k];
  kl[i,k]:=tex;
 end;

А так умножать на MAX:

for i := 1 to n do
   begin
    for j:=1 to m do
      begin
        kl[i,j]:=kl[i,j]*max;
        write(kl[i,j]:3,'  ');
      end;
        writeln;
    end;

[gmail]

Ага, спасибо!
Но еще бы узнать, как в процедурах всё это будет выглядеть...

[ROMA2PVT]

procedure sort(Var kl:mas);
begin
for i:=1 to n do
for j:=1 to m-1 do
for k:=j+1 to m do
if kl[i,j]>kl[i,k] then
 begin
  tex:=kl[i,j];
  kl[i,j]:=kl[i,k];
  kl[i,k]:=tex;
 end;
 end;

Да и Max вот так надо находить:

imax:=1;
  jmax:=1;
  max:=a[1,1];
  for i:=1 to n do
      for j:=1 to m do
        if abs(a[i,j])>abs(max) then
              begin
              max:=a[i,j];
              imax:=i;
              jmax:=j;
              end;
      writeln;
      writeln('MAS[',imax,';',jmax,']:=',max,' ');

[gmail]

Program x3;
Uses crt;
const n=3; m=5;
type
Mass=array[1..n,1..m] of integer;
var
a:Mass;
I, j, Max: integer;
Procedure maxskalar(var A:Mass);
Var
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
a[i,j]:=max*a[i,j];
write(a[i,j]:4,' ');
end;
writeln;
end;
begin
Clrscr;
Randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[I,j]:=-50+random(101);
write(a[I,j]:4);
end;
writeln;
end;
Max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])>abs(max) then
Max:=a[i,j];
Writeln(‘Max=’,Max);
Writeln(’d1=d*max ’);
maxskalar(a);
Readln;
end.

вот с процедурами вообще не понимаю: посмотрел только процедуру умножения матрицы на скаляр. вся прога работает кроме неё... может как тут правильно напишете

[ROMA2PVT]

uses
  CRT;
Type
  mas=array [1..100,1..100] of integer;
var
  a:mas;
  i,j,n,m,imax,jmax,max,tex,k:integer;
  
Procedure proizv(Var kl:mas);
begin
  writeln('Массив после умножения: ');
      for i := 1 to n do
       begin
         for j:=1 to m do
           begin
              kl[i,j]:=kl[i,j]*max;
              write(kl[i,j]:3,'  ');
           end;
           writeln;
       end;
end;

procedure sort(Var kl:mas);
begin
  for i:=1 to n do
    for j:=1 to m-1 do
      for k:=j+1 to m do
        if kl[i,j]>kl[i,k] then
          begin
            tex:=kl[i,j];
            kl[i,j]:=kl[i,k];
            kl[i,k]:=tex;
          end;
 end;
 
begin
Clrscr;
Randomize;
write('Введите количество строк: ');
 readln(n);
   write('Введите количество столбцов: ');
     readln(m);
 writeln('Исходная матрица: ');
  for i := 1 to n do
    begin
     for j:=1 to m do
       begin
          a[i,j]:=Random(10)-5;
          write(a[i,j]:2,'  ');
       end;
       writeln;
    end;
  writeln;
  imax:=1;
  jmax:=1;
  max:=a[1,1];
  for i:=1 to n do
      for j:=1 to m do
        if abs(a[i,j])>abs(max) then
              begin
                 max:=a[i,j];
                 imax:=i;
                 jmax:=j;
              end;
              writeln;
               writeln('MAS[',imax,';',jmax,']:=',max,' ');
writeln;
  proizv(a);
writeln;
  sort(a);
writeln('Результирующая матрица: ');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
         write(a[i,j]:3,' ');
      end;
      writeln;
  end;
readkey;
end.

Вот всё полностью.

[gmail]

Спасибо огромное! Будем пробовать

[ROMA2PVT]

не за что.