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

• Не могу понять само значение фразы «Первое/последнее минимальное/максимальное число». Я так понял, в коде к последнему добавляется знак «=» в условии, но не знаю почему.

  Ответить

  • Мда запутанно немного… Дело в том что элементы в наборе не уникальны, тоесть могут повторяться. Например: (1,2,1,2,3,3,1)
    В этом наборе значение минимального элемента 1. Он встречается первый раз в начале набора и последний в конце.
    Тоесть ответ в нашем задании 1 и 7.

    Ответить

• Теперь понятно, спасибо.

  Ответить

  • Рад помочь.

    Ответить

• Почти такое же решение с небольшими перестановками:

  program MinMax8; // ---------------------------------- Begin of procedure Quit Procedure Quit; begin writeln; writeln; writeln('Press Enter to Quit'); readln; writeln; end; // ----------------------------------- End of procedure Quit const RandLimit = 5; var Number, Counter, FirstMinNum, LastMinNum : byte; Foo, Min : integer; begin write('Enter the number of elements: '); readln(Number); for Counter := 1 to Number do begin Foo := random(RandLimit); writeln(Counter :2, '.', Foo :5); if Counter = 1 then begin Min := Foo; FirstMinNum := Counter; LastMinNum := Counter; end else begin if Foo < Min then begin Min := Foo; FirstMinNum := Counter; LastMinNum := Counter; end else if Foo = Min then LastMinNum := Counter; end; end; writeln; writeln('The number of the first min element is: ', FirstMinNum); writeln('The number of the last min element is: ', LastMinNum); Quit; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

  program MinMax8;   // ---------------------------------- Begin of procedure Quit Procedure Quit; begin    writeln;    writeln;    writeln('Press Enter to Quit');    readln;    writeln; end; // ----------------------------------- End of procedure Quit   const    RandLimit = 5;   var    Number, Counter, FirstMinNum, LastMinNum : byte;    Foo, Min                                 : integer;   begin    write('Enter the number of elements: ');    readln(Number);    for Counter := 1 to Number do       begin          Foo := random(RandLimit);          writeln(Counter :2, '.', Foo :5);          if Counter = 1 then             begin                Min         := Foo;                FirstMinNum := Counter;                LastMinNum  := Counter;             end          else             begin                if Foo < Min then                   begin                      Min         := Foo;                      FirstMinNum := Counter;                      LastMinNum  := Counter;                   end                else                   if Foo = Min then                      LastMinNum := Counter;             end;       end;    writeln;    writeln('The number of the first min element is: ', FirstMinNum);    writeln('The number of the last min element is: ', LastMinNum);    Quit; end.

  Ответить

• А можно решение этой задачи, только в VBA?

  Ответить

  • Надеюсь до понедельника терпит?

    Ответить

    • мне бы завтра сдать(

      Ответить

      • дело в том, что до понедельника у меня нет винды, в контексте VBA у меня нет компилятора.
        Я вот такое набросал в блокноте…
        http://coolcode.ru/reshaem-zadachi-abramyan-na-visual-basic-minmax8/
        но будет ли оно компилироваться большой вопрос. 🙂

        Ответить