Помогите написать программу на Паскале

[Алинkа]

Помогите написать программу на Паскале

помогите написать прогу в паскале:

Пусть вводится последовательность из вещественных чисел​

, оканчивающаяся нулем.​

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

 

[Vladimir_S]

помогите написать прогу в паскале:

Пусть вводится последовательность из вещественных чисел​

, оканчивающаяся нулем.​

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

Извольте:

Var
 a,b1,b2:real;
 i,i1,i2:Integer;

Begin
 i:=1;
 i1:=i;
 write(i:3,':  ');
 readln(b1);
 b2:=1.7E308;
 Repeat
  Inc(i);
  Write(i:3,':  ');
  readln(a);
  If a<>0 then
   begin
    If a<b1 then
     begin
      b2:=b1;
      i2:=i1;
      b1:=a;
      i1:=i;
     end
    else
    If a<b2 then
     begin
      b2:=a;
      i2:=i;
     end;
   end;
 Until a=0;
 Writeln('Minimals: NN ',i1,' and ',i2,' equal to ',b1:0:3,' and ',b2:0:3);
 Writeln('Largest of them is N ',i2,' equal to ',b2:0:3);
 Readln
End.

 

[Алинkа]

благодарю)

 

[Алинkа]

Извольте:

Var
 a,b1,b2:real;
 i,i1,i2:Integer;
 
Begin
 i:=1;
 i1:=i;
 write(i:3,':  ');
 readln(b1);
 b2:=1.7E308;
 Repeat
  Inc(i);
  Write(i:3,':  ');
  readln(a);
  If a<>0 then
   begin
    If a<b1 then
     begin
      b2:=b1;
      i2:=i1;
      b1:=a;
      i1:=i;
     end
    else
    If a<b2 then
     begin
      b2:=a;
      i2:=i;
     end;
   end;
 Until a=0;
 Writeln('Minimals: NN ',i1,' and ',i2,' equal to ',b1:0:3,' and ',b2:0:3);
 Writeln('Largest of them is N ',i2,' equal to ',b2:0:3);
 Readln
End.

что значит вот это=> b2:=1.7E308;

 

[Vladimir_S]

что значит вот это=> b2:=1.7E308;

А просто самое-самое большое число из допускаемых форматом Real. Можно и другое, заведомо бОльшее первых вводимых чисел.