Question

Решить задачу на Паскале, используя циклы.
Вводится последовательность целых чисел, не превосходящих
по модулю 10^9, и при этом не равных нулю. Ноль – признак конца. Вы-
дайте три максимальных числа этой последовательности, не игнорируя
дубликаты (то есть, три числа в ответе могут совпадать). Гарантирует-
ся, что в последовательности есть как минимум три содержательных
элемента.

Answer 1

//Знаю, что это решение далеко от понятия "изящество"
//Pascal ABC.NET v3.0 сборка 1111
var
 max1,max2,max3,i,maxi1,maxi2:integer;
 ar:array of integer;
begin
max1:=-2147483648;
max2:=-2147483648;
max3:=-2147483648;
setlength(ar,1);
readln(ar[0]);
i:=0;
 repeat
  inc(i);
  setlength(ar,i+1);
  readln(ar[i]);
 until ar[i]=0;
 for i:=0 to i do
 if ar[i]>max1 then
  begin;
   max1:=ar[i];
   maxi1:=i;
  end;
 for i:=0 to i do
 if (ar[i]>max2) and (i<>maxi1) then
  begin;
   max2:=ar[i];
   maxi2:=i;
  end;
 for i:=0 to i do
 if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i];
write('Max1=',max1,' Max2=',max2,' Max3=', max3);
end.

Answer 2

Можно короче записать                               var n,k,mx,mx1,mx2: integer;
begin
  write('число 1:  ');  readln(n); 
  mx:=-99999999;  mx1:=mx;
  mx2:=mx;  k:=1;
  while n<>0 do
  begin
    if ((n>mx2) and (n<mx1)) then mx2:=n
    else if n>=mx1 then mx2:=mx1;
    if ((n>mx1) and (n<mx)) then mx1:=n
    else if n>=mx then mx1:=mx;
    if n>=mx then mx:=n;
    k:=k+1;
    write('число ',k,':  ');  readln(n); 
  end;
  write('максимальные числа:  ',mx,' ',mx1,' ',mx2);
end.