Задания
Версия для печати и копирования в MS Word
Тип Д9 № 4497
i

В таб­ли­це Pos хра­нят­ся дан­ные о ко­ли­че­стве по­се­ти­те­лей школь­но­го музея за семь дней (Pos[1] − дан­ные за пер­вый день, Pos[2]  — за вто­рой день и т. д.). Опре­де­ли­те число, ко­то­рое будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на трех язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM Pos(7) AS INTEGER

DIM k, m, day AS INTEGER

Pos(1) = 17: Pos(2) = 19

Pos(3) = 20: Pos(4) = 18

Pos(5) = 16: Pos(6) = 20

Pos(7) = 16

day = 1

m = Pos(1)

FOR k = 2 TO 7

IF Pos(k) < m THEN

m = Pos(k)

day = k

ENDIF

NEXT k

PRINT day

Pos = [17, 19, 20, 18, 16, 20, 16]

day = 1

m = Pos[0]

for k in range(1, 7):

    if Pos[k] < m:

        m = Pos[k]

        day = k + 1

print (day)

Пас­кальАл­го­рит­ми­че­ский язык

Var k, m, day: integer;

Pos: array[1..7] of integer;

Begin

   Pos[1] := 17; Pos[2] := 19;

   Pos[3] := 20; Pos[4] := 18;

   Pos[5] := 16; Pos[6] := 20;

   Pos[7] := 16;

   day := 1;

   m := Pos[1];

   for k := 2 to 7 do

     if Pos[k] < m then

      begin

       m := Pos[k];

       day := k;

      end;

   writeln(day);

End.

   алг

   нач

   цел­таб Pos[1:7]

   цел k, m, day

   Pos[1] := 17

   Pos[2] := 19

   Pos[3] := 20

   Pos[4] := 18

   Pos[5] := 16

   Pos[6] := 20

   Pos[7] := 16

   day := 1

   m := Pos[1]

   нц для k от 2 до 7

      если Pos[k] < m то

         m := Pos[k]

         day := k

      все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Pos[7] = {17, 19, 20, 18, 16, 20, 16};

    int day = 1;

    int m = Pos[0];

    for (int k = 1; k < 7; k++)

        if (Pos[k] < m) {

            day = k + 1;

            m = Pos[k];

        }

    cout << day;

    return 0;

}

Спрятать решение

Ре­ше­ние.

Про­грам­ма пред­на­зна­че­на для на­хож­де­ния дня, в ко­то­рый школь­ный музей по­се­ти­ли мень­ше всего уче­ни­ков. Про­ана­ли­зи­ро­вав вход­ные дан­ные, при­хо­дим к вы­во­ду, что ответ 5.

 

Ответ: 5.


Аналоги к заданию № 4497: 5404 Все