По разделам



Задача Minmax 14


Дано число B (> 0) и набор из десяти чисел. Вывести минимальный
из тех элементов набора, которые больше B, а также его номер. Если
чисел, больших B, в наборе нет, то дважды вывести 0.

Код (C/C++)

#include <stdio.h>
int main(void)
{
    float b,r,min=0;
    int minnum=0,i;
 
    printf("B:");
    scanf("%f", &b);
 
    for (i=1;i<=10;++i){
        printf("%i>",i);
        scanf("%f", &r);
 
        if ((r>b)&&((r<min)||(minnum==0))){
            min=r;
            minnum=i;
        }
    }
    printf("%i %f\n",minnum,min);
    return 0;
}

Код (Python)

import random

#N = random.randrange(1,15)
N = 10
print("N = ",N)
B = random.randrange(5,13)
print("B = ",B)
L1 = [random.randint(1, 10) for i in range(N)]
print("Initial:")
print(L1)
L2 = [i for i in L1 if i > B]
print("Processed:")
print(L2)
if len(L2) == 0:
    print("00, больших, чем B, нет")
else:
    x = min(L2)
    print("Минимальное из больших, чем B:",x)
    print("Индекс:",L1.index(x))
									

Код (Pascal)

program MinMax14;
var
  B,R,Min:Real;
  MinNum,i:Integer;
 
begin
  Write('B:');
  Readln(B);
  Min:=-1;
  for i:=1 to 10 do
   begin
     Write(i,' ÷èñëî:');
     Readln(R);
 
     if (R>B) AND (Min<0) then
      begin
       Min:=R;
       MinNum:=i;
      end;
 
     if (R>B) AND (R<Min) then
      begin
       Min:=R;
       MinNum:=i;
      end;
   end;
   if Min<0 then
    begin
     Min:= 0;
     MinNum:=0;
    end;
   Writeln(MinNum,' ',Min);
end.
									




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

Комментарии

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