Найти произведение двух наибольших чисел

[Ky3bka23]

Сабж. 0 - окончание ввода, сам 0 не входит в последовательность. В чем ошибка кода? Почему-то не видит второе наибольшее и берет не то число. Хелп плз

var s,k,x:integer;
begin
 k:=-30000;
readln(x);
s:=x;
while x<>0 do begin
readln(x);
if x>s then s:=x
 else if x>k then k:=x
end;
writeln(s*k);
end.

[min@y™]

советую поюзать дебаггер.
это что у тебя за паскакаль?

[newerow1989]

var p:array of integer;
    i,r,n,m1,m2:integer;
begin
   r:=0;
   Repeat
      Readln(n);
      If n<>0 then
      begin
         r:=r+1;
         SetLength(p,r);
         p[r-1]:=n;
      end;
   Until n=0;
   m1:=p[0];
   For i:=1 to r-1 do
      If m1<p[i] then
         m1:=p[i];
   m2:=p[0];
   If m1=m2 then
      m2:=p[1];//дописал немного!
   For i:=1 to r-1 do
      If (m2<p[i]) and (m1<>p[i]) then
         m2:=p[i];
   Writeln(m1,' * ',m2,' = ',m1*m2);
   Readln;
end.

Сойдет?

[Serge_Bliznykov]

ну, я бы такой вариант предложил (без массивов и, тем более, без динамических!):

var x, max1, max2, i:LongInt;
begin
 i:=0;
 ReadLn(x);
 while x<>0 do begin
  inc(i);
  if i=1 then max1 := x;
  if i=2 then begin if x>max1 then begin max2 := max1; max1 := x end else max2 := x end;
  if (i>2) then
    if x>max1 then begin max2 := max1; max1 := x end 
    else if x>max2 then max2 := x;
  Readln(x);
 end;
 if i=0 then WriteLn('Ни одного числа не было введено!')
 else
   if i=1 then WriteLn('Было только одно число: ', max1)
   else Write(max1,' ', max2, 'Произведение максимальных = ', max1*max2)
end.

[Ky3bka23]

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

ну, я бы такой вариант предложил (без массивов и, тем более, без динамических!):

var x, max1, max2, i:LongInt;
begin
 i:=0;
 ReadLn(x);
 while x<>0 do begin
  inc(i);
  if i=1 then max1 := x;
  if i=2 then begin if x>max1 then begin max2 := max1; max1 := x end else max2 := x end;
  if (i>2) then
    if x>max1 then begin max2 := max1; max1 := x end 
    else if x>max2 then max2 := x;
  Readln(x);
 end;
 if i=0 then WriteLn('Ни одного числа не было введено!')
 else
   if i=1 then WriteLn('Было только одно число: ', max1)
   else Write(max1,' ', max2, 'Произведение максимальных = ', max1*max2)
end.

Этот работает, спасибо. А код newerow1989 считает не так, как нужно. Например я ввожу 10,9,8,7,0, должно вывести 10*90=90, а выводит 10*10=100.

[newerow1989]

Я там дописал немного!

[Ky3bka23]

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

Я там дописал немного!

Простите, не заметил, значит работает. Спасибо

[newerow1989]

Пожалуйста!