Как найти max и min элементы матрицы?????

[ЕвгениуS]

Задача звучит так: Ввести двумерный массив типа integer, где клличество строк и столбцов вводится с клавиатуры. Найти максимальные и минимальые элементы матрицы, сформулировать новую матрицу. Квадратную. Рамерность задаетс пользоателем,где последняя строка будет содержате эементы, а первая максимальные. Остальные все элементы =0.

Я знаю как ввести двумерный массив и задать колличество строк и столбцов, ввести элементы марицы. Как найи максимальные и мин элементы матрицы???

[_Dmitry]

Перебором в цикле:

max:=0;
for i:=1 to n do
  for j:=1 to m do
    if a[i,j] > max then max:=a[i,j];

[Goblin]

Извини Pascal не знаю, напишу так:

min=n-элементу марицы.
max=n-элементу марицы.

Цыкл от 0 до кол.строк.
Цыкл от 0 до кол.столбцов.
Если следующий элемент меньше min тогда min равно этому элементу.
Если следующий элемент больше max тогда max равно этому элементу.
конец цыкла
конец цыкла

Если хош могу на С++

[ЕвгениуS]

program GEO;
uses crt;
label 5;
var a: array [1..20, 1..20] of integer;
p: array [1..20, 1..20] of integer;
n,m,j,i,max,O: integer;
begin clrscr;
writeln(введите колличество строк и столбцов)');
readln(m,n);

for i:=1 to m do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln(a[i,j])
end;
writeln('матрица 1');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j], ' ');
writeln
end;


max:=0 на этой строчке все останавливается и выходит сообщене-"неверное выражение"
for i:=1 to m do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j]
begin max:=a[i,j];
end;
writeln('max=' ,)

end.

У меня Паскаль.

[ЕвгениуS]

нее, спасибо, мне в Паскале к завтру делать надо((

[ЕвгениуS]

Сообщение от Goblin

Извини Pascal не знаю, напишу так:

min=n-элементу марицы.
max=n-элементу марицы.

Цыкл от 0 до кол.строк.
Цыкл от 0 до кол.столбцов.
Если следующий элемент меньше min тогда min равно этому элементу.
Если следующий элемент больше max тогда max равно этому элементу.
конец цыкла
конец цыкла

Если хош могу на С++

нее, спасибо. Мне именно в Паскале к завтру делать надо((

[Карась]

Непонятно как ваш код откомпилировался....
Я дописывал исправил эдак ошибок 10 который компилятор пропустить немог (в основном это запятые, точки с запятой и т.д.).

Вот как это должно выглядить:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

label 5;
var a: array [1..20, 1..20] of integer;
    p: array [1..20, 1..20] of integer;
    n, m, j, i, max, O : integer;
Begin
Writeln ('ââåäèòå êîëëè÷åñòâî ñòðîê è ñòîëáöîâ)');
Readln (m,n);

for i:=1 to m do
for j:=1 to n do
  Begin
    write ('a[',i,',',j,']=');
    readln (a[i,j]);
End;

Writeln ('ìàòðèöà 1');
for i := 1 to m do
  Begin
    for j := 1 to n do
    Write (a[i,j], ' ');
    Writeln;
  End;

max := 0;
for i := 1 to m do
for j := 1 to n do
  if a[i,j] > max then max := a[i,j];
Writeln ('max=' ,max);
Readln;
end.

Запрашивается матрица, заполняется с клавы. Выводится на экран и выводится максимальный элемент.

""""""""""""""""""""""""""""""" ""
Для публикачии исходного кода есть специальный тег. Используйте.

[ЕвгениуS]

Сообщение от Карась

Непонятно как ваш код откомпилировался....
Я дописывал исправил эдак ошибок 10 который компилятор пропустить немог (в основном это запятые, точки с запятой и т.д.).

Вот как это должно выглядить:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

label 5;
var a: array [1..20, 1..20] of integer;
    p: array [1..20, 1..20] of integer;
    n, m, j, i, max, O : integer;
Begin
Writeln ('ââåäèòå êîëëè÷åñòâî ñòðîê è ñòîëáöîâ)');
Readln (m,n);

for i:=1 to m do
for j:=1 to n do
  Begin
    write ('a[',i,',',j,']=');
    readln (a[i,j]);
End;

Writeln ('ìàòðèöà 1');
for i := 1 to m do
  Begin
    for j := 1 to n do
    Write (a[i,j], ' ');
    Writeln;
  End;

max := 0;
for i := 1 to m do
for j := 1 to n do
  if a[i,j] > max then max := a[i,j];
Writeln ('max=' ,max);
Readln;
end.

Запрашивается матрица, заполняется с клавы. Выводится на экран и выводится максимальный элемент.

""""""""""""""""""""""""""""""" ""
Для публикачии исходного кода есть специальный тег. Используйте.

Большое спасибо. Я использую Паскаль АВС. Он подобные ошибки пропускает

[B_N]

Вы мне тока одну вещь объясните. Почему, если integer, то max := 0; , а не max := minint;

[Карась]

Сообщение от B_N

Вы мне тока одну вещь объясните. Почему, если integer, то max := 0; , а не max := minint;

"ЭЭЭЭЭэээээ... чаво

Что такое minint ?" Понял.......... Пояснять ненадо...

Большое спасибо. Я использую Паскаль АВС. Он подобные ошибки пропускает

Но мой то код работает на вашем паскале?