По разделам



Задача Minmax 25


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

Код (C/C++)

#include <stdio.h>
int main(void)
{
    int n,i,imul;
    float r1=0,r2=0,minmul=0;
 
    printf("N:");
    scanf("%i", &n);
    for (i=1; i<=n; ++i){
        r2=r1;
        printf("%i>",i);
        scanf("%f", &r1);
 
        if ((i==2)||(r1*r2<minmul)) {
            minmul=r2*r1;
            imul=i;
        }
 
    }
    printf("%i %i\n",imul-1,imul);
    return 0;
}

Код (Python)

import random

N = random.randrange(3,15)
print("N = ",N)

L = [random.randint(1, 15) for i in range(N)]
print("Initial:",L)

mn = L[0] * L[1]
mn_idx = 0
i = 0
for i_curr, i_next in zip(L,L[1:]):
    x = i_curr * i_next
    if x < mn:
        mn = x
        mn_idx = i
    #print(i_curr,i_next)
    i += 1
print("\nMinimum of pairs:",mn)
print("Indices:",mn_idx,mn_idx+1)

mn = L[0] * L[1]
mn_idx = 0
for i in range(1,len(L)-1):
    x = L[i] * L[i+1]
    if x < mn:
        mn = x
        mn_idx = i
    #print(L[i],L[i+1])
print("\nMinimum of pairs:",mn)
print("Indices:",mn_idx,mn_idx+1)
									

Код (Pascal)

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.
									




Minmax. Абрамян
Minmax 1 Просмотров: 37
Minmax 2 Просмотров: 26
Minmax 3 Просмотров: 21
Minmax 4 Просмотров: 17
Minmax 5 Просмотров: 27
Minmax 6 Просмотров: 34
Minmax 7 Просмотров: 32
Minmax 8 Просмотров: 18
Minmax 9 Просмотров: 24
Minmax 10 Просмотров: 18
Minmax 11 Просмотров: 46
Minmax 12 Просмотров: 32
Minmax 13 Просмотров: 33
Minmax 14 Просмотров: 24
Minmax 15 Просмотров: 28
Minmax 16 Просмотров: 21
Minmax 17 Просмотров: 26
Minmax 18 Просмотров: 25
Minmax 19 Просмотров: 22
Minmax 20 Просмотров: 34
Minmax 21 Просмотров: 32
Minmax 22 Просмотров: 20
Minmax 23 Просмотров: 24
Minmax 24 Просмотров: 29
Minmax 25 Просмотров: 16
Minmax 26 Просмотров: 36
Minmax 27 Просмотров: 29
Minmax 28 Просмотров: 26
Minmax 29 Просмотров: 29
Minmax 30 Просмотров: 28

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться