Цитата:
Сообщение от Алин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.