Не могу найти исходник pascal

[Stilet]

я думаю два найбольших числа надо вывести которые есть в массиве.

Хм...
Допустим так можно попробовать найти два максимальных (если имеется ввиду что они разные)

 max:array[1..2] of Byte;
...
max[1]:=matrix[1];max[2]:=max[1];
for x:=2 to 9 do  
if matrix[x]>max[1] then begin
 max[2]:=max[1];
 max[1]:=Matrix[x];
End;
...

Соответственно вывод может быть таким:

 Writeln('Mаксимум 1 - ',max[1]);
 Writeln('Mаксимум 2 - ',max[2]);

[BeaU]

это правельный код будет?)

Program maximum;
Var
max:array[1..2] of Byte;
max1: integer;
max2: integer;
x: integer;
Begin
max[1]:=matrix[1];max[2]:=max[1];
for x:=2 to 9 do
if matrix[x]>max[1] then begin
max[2]:=max[1];
max[1]:=Matrix[x];
End;
end;
Writeln('Mаксимум 1 - ',max[1]);
Writeln('Mаксимум 2 - ',max[2]);
ReadLn;
End.

[whatever]

Нет.
1)matrix не объявлен.
2)раз уж в задании таблица, то matrix должен быть двоичным, а не единичным, как в коде.
3)лишний End;

С минимальными поправками код выглядит так:

 Program maximum;
Var
 Matrix:Array [1..9] of byte = (1,2,3,4,5,6,9,8,7);
 max:array[1..2] of Byte;
 max1: integer;
 max2: integer;
 x: integer;
 Begin
 max[1]:=matrix[1];
 max[2]:=max[1];
 for x:=2 to 9 do
 if matrix[x]>max[1] then begin
 max[2]:=max[1];
 max[1]:=Matrix[x];
 End;
 Writeln('Mаксимум 1 - ',max[1]);
 Writeln('Mаксимум 2 - ',max[2]);
 ReadLn;
 End.

и работает неправильно:

Сообщение от maximum.pas

Mаксимум 1 - 9;
Mаксимум 2 - 6

При всем этом ты ищешь РАЗНЫЕ максимумы.

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

Мне кажеться, что больше подходит первый вариант.

Ты уж как-нибудь определись, чего хочешь.

Если первый вариант, то

program one;
Var
 Matrix:Array [1..3,1..3] of byte = ((1,2,3),(4,5,6),(9,8,7));
 max,two:Byte;
 X,Y:Byte;
Begin
 {Находим максимум}
 for x:=1 to 3 do
   for y:=1 to 3 do
     if matrix[x,y]>max then max:=matrix[x,y];
 {Находим первые два максимума и выводим их и ихъ номера}
 two:=2;
 for x:=1 to 3 do
   for y:=1 to 3 do  begin
     if two=0 then break;
     if matrix[x,y]=max then begin writeln(x:5,',',y,matrix[x,y]:10); dec(two);end;
   end;
  ReadLn;
End.

Сообщение от результат

3,1 9

где 3,1 - индекс, 9 - максимум. Если написать две и более девяток, то результат выдаст первые две девятки их индексы (при условии, что девятка останется максимумом)

Если второй, то:

Program Two;
Var
 Matrix:Array [1..3,1..3] of byte = ((1,2,3),(4,5,6),(9,8,7));
 max1,max2:Byte;
 X,Y:Byte;
Begin
 Writeln('До');        // ?
 For Y:=1 to 3 do
  Begin
    For X:=1 to 3 do
     Write(Matrix[X,Y],' ');
    Writeln;
  End;
 max1:=Matrix[1,1];
 max2:=Matrix[1,1];
  For Y:=1 to 3 do
    For X:=1 to 3 do
      begin
        if Matrix[X,Y]>max1 Then
          begin
            max2:=max1;
            max1:=Matrix[X,Y];
          end;
        if (Matrix[X,Y]>max2)and(Matrix[X,Y]<>max1) Then
          max2:=Matrix[X,Y];
      end;
 Writeln('Mаксимум 1 - ',max1);
 Writeln('Mаксимум 2 - ',max2);
  ReadLn;
End.

Тут ответы будут 9 и 8, но без индексов (хотя их тоже можно запомнить)

Что касается byte и integer, я думаю здесь это не принципиально, если не брать значения больше 255 и отрицательные. Хотя в общем случае, конечно, предпочтительнее integer.

[BeaU]

Запустила в паскаль выбивает ошибку в этой строке, не могу понять что не так, а ошибку надо найти, так как надо сдавать со скриншотами)
Matrix:Array [1..3,1..3] of byte = ((1,2,3),(4,5,6),(9,8,7));

[whatever]

Изначально писал в дэлфи, тоже работало.

[BeaU]

спасибо Вам большое, за помощь=)))

[whatever]

Так а в чем проблема то была? :\

[BeaU]

незнаю, я код набирала точно такой же) мне выбило ошибку в первой строке, и курсор стоял на =.
Matrix:Array [1..3,1..3] of byte = ((1,2,3),(4,5,6),(9,8,7));