Решаем задачи Абрамян на Паскале. Minmax22

Minmax22. Дано целое число $$N (> 2)$$ и набор из $$N$$ чисел. Найти два наименьших элемента из данного набора и вывести эти элементы в порядке возрастания их значений.

Решение:

program Minmax22;
var
  Min1,Min2,R,Sum:Real;
  N,i:Integer;

begin
  Sum:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(R);

     if i=1 then
      begin
       Min1:=R;
       Min2:=R;
      end;



     if R<Min2 then
       if R<Min1 then
        begin
         Min2:=Min1;
         Min1:=R;
        end
       else if R<>Min1 then Min2:=R;

     if Min1=Min2 then Min2:=R;
   end;
   writeln(Min1,' ',Min2);
end.

program Minmax22;

var

Min1,Min2,R,Sum:Real;

N,i:Integer;

begin

Sum:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

Write(i,' число:');

Readln(R);

if i=1 then

begin

Min1:=R;

Min2:=R;

end;

if R<Min2 then

if R<Min1 then

begin

Min2:=Min1;

Min1:=R;

end

else if R<>Min1 then Min2:=R;

if Min1=Min2 then Min2:=R;

end;

writeln(Min1,' ',Min2);

end.

Другие задачи из раздела Minmax можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Minmax22

Комментарии:

Добавить комментарий Отменить ответ