Программа не работает (Двумерные массивы)

@Nachinayushiy · Регистрация: 23.04.2013

Author24 — интернет-сервис помощи студентам

Pascal

Program VbIvodMatricy;
const
 N = 3;
 M = 5;
type
 Mas = array [1..N, 1..M] of integer;
var
 Table: mas;
 i,j,max: integer;
Begin
 Randomize;
 for i:= 1 to N do
    for j:= 1 to M do
     Table[i,j]:=Random(10);
 for i:= 1 to N do
    Begin
        for j:= 1 to M do
        write(Table[i,j]);
     Writeln;
    end;
 max:= Table[1,1];
 for i:= 1 to N do
    Begin
     for j:= 2 to M do
        if Max < Table[i,j] then
         max:= Table[i,j];
        Writeln;
    end;
 Writeln('Максимальный элемент = ',Table[i,j]);
 Writeln('Его позиция в матрице = ', i, j);
Readln;
End.

Надо:
1. Определить матрицу 3x5.
2. Вывести ее на экран.
3. Определить величину максимального элемента данной матрицы
и вывести на экран его значение и его позицию в матрице.

Если 2 пункта выполнил, то с третьи проблема. Он мне выдает последний элемент.
И если можете, то как упростить программу?

@Adpecke · 13.06.2013, 17:10

Pascal

1	Writeln('Максимальный элемент = ',Table[i,j]);

замени на:

Pascal

1	Writeln('Максимальный элемент = ',max);

эт для вывода максимального
А для правильного вывода его позиции создай еще 2 переменный и в цикле поиска максимального записывай в них его позицию

@Nachinayushiy · 13.06.2013, 17:21 **[ТС]**

Adpecke, а можешь показать саму программу, а то опять ерунда получается.(Как правильно записать 21 строчку).

Pascal

Program VbIvodMatricy;
const
 N = 3;
 M = 5;
type
 Mas = array [1..N, 1..M] of integer;
var
 Table: mas;
 i,j,max, imax: integer;
Begin
 Randomize;
 for i:= 1 to N do
    for j:= 1 to M do
     Table[i,j]:=Random(10);
 for i:= 1 to N do
    Begin
        for j:= 1 to M do
        write(Table[i,j]);
     Writeln;
    end;
 imax:= 1, 1;
 max:= Table[1,1];
 for i:= 1 to N do
    Begin
     for j:= 2 to M do
        if Max < Table[i,j] then
         max:= Table[i,j];
         imax:= i, j;
        Writeln;
    end;
 Writeln('Максимальный элемент = ',max);
 Writeln('Его позиция в матрице = ', imax);
Readln;
End.

@Adpecke · 13.06.2013, 17:27

Pascal

Program VbIvodMatricy;
const
 N = 3;
 M = 5;
type
 Mas = array [1..N, 1..M] of integer;
var
 Table: mas;
 i,j,max,mi,mj: integer;
Begin
 Randomize;
 for i:= 1 to N do
    for j:= 1 to M do
     Table[i,j]:=Random(10);
 for i:= 1 to N do
    Begin
        for j:= 1 to M do
        write(Table[i,j]);
     Writeln;
    end;
 mi:=1;
 mj:=1;
 max:= Table[1,1];
 for i:= 1 to N do
    Begin
     for j:= 2 to M do
        if Max < Table[i,j] then
         begin
         mi:=i;
         mj:=j;
         max:= Table[i,j];
         end;
        Writeln;
    end;
 Writeln('Максимальный элемент = ',max);
 Writeln('Его позиция в матрице = ', mi, mj);
Readln;
End.

@Nachinayushiy · 13.06.2013, 17:41 **[ТС]**

Adpecke, спасибо.

@Nachinayushiy 1 / 1 / 1 Регистрация: 23.04.2013 Сообщений: 26
	13.06.2013, 17:41 [ТС]	5
	Adpecke, спасибо. 0