Информатика (Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке)

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

БейсикPython
DIM Dat(12) AS INTEGER
 DIM k, m, month AS INTEGER
 Dat(1) = 5: Dat(2) = 5
 Dat(3) = 6: Dat(4) = 8
 Dat(5) = 4: Dat(6) = 5
 Dat(7) = 4: Dat(8) = 7
 Dat(9) = 4: Dat(10) = 4
 Dat(11) = 8: Dat(12) = 7
 m = Dat(1); month = 1
 FOR k = 2 TO 12
 IF Dat(k) <= m THEN
 m = Dat(k)
 month = k
 ENDIF
 NEXT k
 PRINT month

Dat = [5, 5, 6, 8, 4, 5, 4, 7, 4, 4, 8, 7]

m = Dat[0]

month = 1

for k in range(1, 12):

    if Dat[k] <= m:

        m = Dat[k]


        month = k + 1

print (month)

 

 

ПаскальАлгоритмический язык
Var k, m, month: integer;
 Dat: array[1..12] of integer;
 Begin
    Dat[1] := 5; Dat[2] := 5;
    Dat[3] := 6; Dat[4] := 8;
    Dat[5] := 4; Dat[6] := 5;
    Dat[7] := 4; Dat[8] := 7;
    Dat[9] := 4; Dat[10] := 4;
    Dat[11] := 8; Dat[12] := 7;
    m := Dat[1];
    month := 1;
    for k := 2 to 12 do
       if Dat[k] <= m then
        begin
           m := Dat[k];
           month := k;
       end;
    writeln(month);
 End.
   алг
    нач
    цел­таб Dat[1:12]
    цел k, m, month
    Dat[1] := 5
    Dat[2] := 5
    Dat[3] := 6
    Dat[4] := 8
    Dat[5] := 4
    Dat[6] := 5
    Dat[7] := 4
    Dat[8] := 7
    Dat[9] := 4
    Dat[10] := 4
    Dat[11] := 8
    Dat[12] := 7
    m := Dat[1]
    month := 1
    нц для k от 2 до 12
         если Dat[k] <= m то
            m := Dat[k]
            month := k
        все
    кц
    вывод month
    кон
С++
#include 
using namespacestd;
int main() {
    int Dat[12] = {5, 5, 6, 8, 4, 5, 4, 7, 4, 4, 8, 7};
    int m = Dat[0];
    int month = 1;
    for (int k = 1; k < 12; k++)
        if (Dat[k] <= m) {
            m = Dat[k];
            month = k + 1;
        }
    cout << month;
    return 0;
}

Регистрация


Зарегистрироваться через VK

Личный кабинет

Регистрация
Войти через VK