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

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

Решение:

program Minmax25;

var
  R1,R2,MinMul:Real;
  N,i,iMul:Integer;

begin
  MinMul:=0;
  R1:=0;
  R2:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     R2:=R1;

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


     if i=2 then
      begin
       MinMul:=R2*R1;
       iMul:=i;
      end;

     if R1*R2<MinMul then
      begin
       MinMul:=R2*R1;
       iMul:=i;
      end;

    end;
   writeln(iMul-1,' ',iMul);
end.

program Minmax25;

var

R1,R2,MinMul:Real;

N,i,iMul:Integer;

begin

MinMul:=0;

R1:=0;

R2:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

R2:=R1;

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

Readln(R1);

if i=2 then

begin

MinMul:=R2*R1;

iMul:=i;

end;

if R1*R2<MinMul then

begin

MinMul:=R2*R1;

iMul:=i;

end;

writeln(iMul-1,' ',iMul);

end.

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

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

Program m25;

Var
 n,i,k: integer;
 p,m,a,min: real;
 
Begin
p:=1;
 Write('N=');
 readln(n);
 For i:=1 to n do
  Begin
   m:=p;
   Write('A',i,'=');
   Readln(a);
   p:=p*a;
   If (i=2) then min:=p;
   If (p<min) then 
   Begin
    min:=p;
    k:=i;
   End;
   p:=p/m;
  End;
 Writeln('Меньший номер: ',k-1);
 Writeln('Больший номер: ',k);
End.

Program m25;

Var

n,i,k: integer;

p,m,a,min: real;

Begin

p:=1;

Write('N=');

readln(n);

For i:=1 to n do

m:=p;

Write('A',i,'=');

Readln(a);

p:=p*a;

If (i=2) then min:=p;

If (p<min) then

min:=p;

k:=i;

End;

p:=p/m;

Writeln('Меньший номер: ',k-1);

Writeln('Больший номер: ',k);

End.

Ответить

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

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

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

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