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

[BeaU]

В заданой линейной таблице на N-элементов найти 2 максимальных элемента.

[alexcoder]

А написать самому?

[Stilet]

BeaU

Покажи как кодом вводишь таблицу.

[BeaU]

сама не могу написать потому, что задачу только одну по паскалю сделать надо, а из-за нее не хочу паскаль устанавливать, и к тому же я его изучала 4 года назад, уже ничего не помню. Помогите, пожалуста, с программой=)

Program maximum;
Var
 Matrix:Array[1..3,1..3] of byte = (2,2,2,3,3,3,1,1,1);
 PP: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;
 PP := Matrix[1,1];
 For Y:=1 to 3 do
  For X:=1 to 3 do
   if Matrix[X,Y] > PP Then PP := Matrix[X,Y];
 Writeln('Mаксимум - ', PP);
  ReadLn;
End;

вот похожая задача, но мне надо найти 2 макс. элемента, и из n-ого количества элементов?

[Stilet]

Ладно. Допустим.
Сделаю пару подсказок:

 {Находим максимум}
 for x:=1 to 9 do  if matrix[x]>max then max:=matrix[x];
 {Находим первые два максимума и выводим их и ихъ номера}
 two=2;
 for x:=1 to 9 do  begin
   if two=0 then break;
   if matrix[x]=max then begin writeln(x:5,matrix[x]:10); dec(two);end;
 end;

Идея ясна?

[BeaU]

мм.., если честно не поняла, я просто действительно давно паскаль изучала, на то время хорошо понимала, сейчас же полный ноль, та еще й учусь уже на заочной форме.

[whatever]

Вообще задача неоднозначна. Например массив ((1,2,3),(4,9,6),(9,8,7)). Под двумя максимальными можно понимать 9 и 9, а можно 9 и 8 (впринципе не логично, но если бы мой препод ставил задачу, то вполне могло бы быть). Для первого случая Stilet написал решение. Для второго мой вариант:

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.

[BeaU]

Мне кажеться, что больше подходит первый вариант.
И я думаю, что массив должен быть задан уже в программе? или нет?
Помогите, пожалуйста с результатом, чтоб не было ошибок, не могу все в кучу собрать)

Program maximum;
Var
 Matrix:Array[1..3,1..3] of byte = (2,2,2,3,3,3,1,1,1);
 max1:Byte;
 max2:Byte;
 x:Byte;
Begin
for x:=1 to 9 do  
if matrix[x]>max then 
max:=matrix[x];
     Write(Matrix[x],' ');
    Writeln;
  End;
 max1:=Matrix[1,1];
 max2:=Matrix[1,1];
two=2;
 for x:=1 to 9 do  
begin
   if two=0 then break;
   if matrix[x]=max then 
begin 
writeln(x:5,matrix[x]:10); dec(two);
end;
 end;
 Writeln('Mаксимум 1 - ',max1);
 Writeln('Mаксимум 2 - ',max2);
  ReadLn;
End.

[Stilet]

byte

Замени на integer

или нет?

Не имеет значения.

max1:Byte;
max2:Byte;

Так речь идет о двух разных максимумах?

[BeaU]

честно, не знаю, все задание написала, этому преподу я тож еще никогда ничего не сдавала, не знаю какие там требования. я думаю два найбольших числа надо вывести которые есть в массиве.
спасибо вам за помощь))