Вариант № 2824976

При вы­пол­не­нии за­да­ний с крат­ким от­ве­том впи­ши­те в поле для от­ве­та цифру, ко­то­рая со­от­вет­ству­ет но­ме­ру пра­виль­но­го от­ве­та, или число, слово, по­сле­до­ва­тель­ность букв (слов) или цифр. Ответ сле­ду­ет за­пи­сы­вать без про­бе­лов и каких-либо до­пол­ни­тель­ных сим­во­лов. Дроб­ную часть от­де­ляй­те от целой де­ся­тич­ной за­пя­той. Еди­ни­цы из­ме­ре­ний пи­сать не нужно.


Если ва­ри­ант задан учи­те­лем, вы мо­же­те впи­сать или за­гру­зить в си­сте­му от­ве­ты к за­да­ни­ям с раз­вер­ну­тым от­ве­том. Учи­тель уви­дит ре­зуль­та­ты вы­пол­не­ния за­да­ний с крат­ким от­ве­том и смо­жет оце­нить за­гру­жен­ные от­ве­ты к за­да­ни­ям с раз­вер­ну­тым от­ве­том. Вы­став­лен­ные учи­те­лем баллы отоб­ра­зят­ся в вашей ста­ти­сти­ке.




Версия для печати и копирования в MS Word
Вариант составлен по шаблону 2824976.
1
Тип Д9 № 1061
i

В таб­ли­це A хра­нят­ся дан­ные о ко­ли­че­стве при­зе­ров олим­пи­а­ды по про­грам­ми­ро­ва­нию по де­вя­ти окру­гам Моск­вы. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM A(9) AS INTEGER

DIM k, score AS INTEGER

A(1) = 6: A(2) = 11

A(3) = 7: A(4) = 12

A(5) = 13: A(6) = 5

A(7) = 9: A(8) = 3

A(9) = 4

score = 0

FOR k = 1 TO 9

IF A(k) >= 9 THEN

score = score + A(k)

ENDIF

NEXT k

PRINT score

A = [6, 11, 7, 12, 13, 5, 9, 3, 4]

score = 0

for k in range (9):

    if A[k] >= 9:

        score = score + A[k]

print (score)

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

Var k, score: integer;

A: array[1..9] of integer;

Begin

   A[1]:=6;A[2]:=11;

   A[3]:=7;A[4]:=12;

   A[5]:=13;A[6]:=5;

   A[7]:=9;A[8]:=3;

   A[9]:=4;

   score := 0;

   for k := 1 to 9 do

     if A[k] >= 9 then

      begin

        score := score + A[k];

      end;

   writeln(score);

End.

  алг

  нач

   цел­таб A[1:9]

   цел k, score

   A[1] := 6

   A[2] := 11

   A[3] := 7

   A[4] := 12

   A[5] := 13

   A[6] := 5

   A[7] := 9

   A[8] := 3

   A[9] := 4

   score := 0

   нц для k от 1 до 9

      если A[k] >= 9 то

         score := score + A[k]

      все

   кц

   вывод score

кон

С++

#include <iostream>

using namespace std;

int main() {

    int A[9] = {6, 11, 7, 12, 13, 5, 9, 3, 4};

    int score = 0;

    for (int k = 0; k < 9; k++)

        if (A[k] >= 9) score = score + A[k];

    cout << score;

    return 0;

}


Ответ:

2
Тип Д9 № 1164
i

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

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 12: Dat(2) = 15

Dat(3) = 17: Dat(4) = 15

Dat(5) = 14: Dat(6) = 12

Dat(7) = 10: Dat(8) = 13

Dat(9) = 14: Dat(10) = 15

m = 20

FOR k = 1 TO 10

IF Dat(k) < m THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

Dat = [12, 15, 17, 15, 14, 12, 10, 13, 14, 15]

m = 20

for k in range (10):

    if Dat[k] < m:

        m = Dat[k]

print (m)

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

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 12; Dat[2] := 15;

   Dat[3] := 17; Dat[4] := 15;

   Dat[5] := 14; Dat[6] := 12;

   Dat[7] := 10; Dat[8] := 13;

   Dat[9] := 14; Dat[10] := 15;

   m := 20;

   for k := 1 to 10 do

     if Dat[k] < m then

      begin

        m := Dat[k];

      end;

   writeln(m);

End.

  алг

нач

   цел­таб Dat[1:10]

   цел k, m

   Dat[1] := 12

   Dat[2] := 15

   Dat[3] := 17

   Dat[4] := 15

   Dat[5] := 14

   Dat[6] := 12

   Dat[7] := 10

   Dat[8] := 13

   Dat[9] := 14

   Dat[10] := 15

   m := 20

   нц для k от 1 до 10

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

         m := Dat[k]

      все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {12, 15, 17, 15, 14, 12, 10, 13, 14, 15};

    int m = 20;

    for (int k = 0; k < 10; k++)

        if (Dat[k] < m) m = Dat[k];

    cout << m;

    return 0;

}


Ответ:

3
Тип Д9 № 70
i

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

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 12: Dat(2) = 15

Dat(3) = 17: Dat(4) = 15

Dat(5) = 14: Dat(6) = 12

Dat(7) = 10: Dat(8) = 13

Dat(9) = 14: Dat(10) = 15

m = 0

FOR k = 1 TO 10

IF Dat(k) > 12 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [12, 15, 17, 15, 14, 12, 10, 13, 14, 15]

m = 0

for k in range (10):

    if Dat[k] > 12:

        m = m + 1

print (m)

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

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 12; Dat[2] := 15;

   Dat[3] := 17; Dat[4] := 15;

   Dat[5] := 14; Dat[6] := 12;

   Dat[7] := 10; Dat[8] := 13;

   Dat[9] := 14; Dat[10] := 15;

   m := 0;

   for k := 1 to 10 do

     if Dat[k] > 12 then

      begin

        m := m + 1;

      end;

   writeln(m);

End.

   алг

   нач

   цел­таб Dat[1:10]

   цел k, m

   Dat[1] := 12

   Dat[2] := 15

   Dat[3] := 17

   Dat[4] := 15

   Dat[5] := 14

   Dat[6] := 12

   Dat[7] := 10

   Dat[8] := 13

   Dat[9] := 14

   Dat[10] := 15

   m := 0

   нц для k от 1 до 10

      если Dat[k] > 12 то

         m := m + 1

      все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {12, 15, 17, 15, 14, 12, 10, 13, 14, 15};

    int m = 0;

    for (int k = 0; k < 10; k++)

        if (Dat[k] > 12) m = m + 1;

    cout << m;

    return 0;

}


Ответ:

4
Тип Д9 № 1041
i

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

Бей­сикPython

DIM Lose(10) AS INTEGER

DIM t,m AS INTEGER

Lose(1) = 1: Lose(2) = 5

Lose(3) = 3: Lose(4) = 6

Lose(5) = 7: Lose(6) = 12

Lose(7) = 1: Lose(8) = 3

Lose(9) = 3: Lose(10) = 1

m = 0

FOR t = 1 TO 10

IF Lose(t) < 6 THEN

m = m + Lose(t)

ENDIF

NEXT t

PRINT m

Lose = [1, 5, 3, 6, 7, 12, 1, 3, 3, 1]

m = 0

for t in range (10):

    if Lose[t] < 6:

        m = m + Lose[t]

print (m)

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

Var t, m: integer;

Lose: array[1..10] of integer;

Begin

   Lose[1]:=1;Lose[2]:=5;

   Lose[3]:=3;Lose[4]:=6;

   Lose[5]:=7;Lose[6]:=12;

   Lose[7]:=1;Lose[8]:=3;

   Lose[9]:=3;Lose[10]:=1;

   m := 0;

   for t := 1 to 10 do

     if Lose[t] < 6 then

      begin

        m := m + Lose[t];

      end;

   writeln(m);

End.

  алг

  нач

   цел­таб Lose[1:10]

   цел t, m

   Lose[1] := 1

   Lose[2] := 5

   Lose[3] := 3

   Lose[4] := 6

   Lose[5] := 7

   Lose[6] := 12

   Lose[7] := 1

   Lose[8] := 3

   Lose[9] := 3

   Lose[10] := 1

   m := 0

   нц для t от 1 до 10

      если Lose[t] < 6 то

         m := m + Lose[t]

      все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Lose[10] = {1, 5, 3, 6, 7, 12, 1, 3, 3, 1};

    int m = 0;

    for (int t = 0; t < 10; t++)

        if (Lose[t] < 6) m = m + Lose[t];

    cout << m;

    return 0;

}


Ответ:

5
Тип Д9 № 4659
i

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

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k, m, n AS INTEGER

Dat(1) = 7: Dat(2) = 9

Dat(3) = 10: Dat(4) = 5

Dat(5) = 6: Dat(6) = 7

Dat(7) = 9: Dat(8) = 8

Dat(9) = 6: Dat(10) = 9

m = 10; n = 0

FOR k = 1 TO 10

IF Dat(k) <= m THEN

m = Dat(k)

n = k

ENDIF

NEXT k

PRINT m

Dat = [7, 9, 10, 5, 6, 7, 9, 8, 6, 9]

m = 10

n = 0

for k in range(0,10):

    if Dat[k] <= m:

        m = Dat[k]

        n = k + 1

print (m)

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

Var k, m, n: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 7; Dat[2] := 9;

   Dat[3] := 10; Dat[4] := 5;

   Dat[5] := 6; Dat[6] := 7;

   Dat[7] := 9; Dat[8] := 8;

   Dat[9] := 6; Dat[10] := 9;

   m := 10;

   n := 0;

   for k := 1 to 10 do

     if Dat[k] <= m then

      begin

        m := Dat[k];

        n := k;

      end;

   writeln(m);

End.

   алг

   нач

   цел­таб Dat[1:10]

   цел k, m, n

   Dat[1] := 7

   Dat[2] := 9

   Dat[3] := 10

   Dat[4] := 5

   Dat[5] := 6

   Dat[6] := 7

   Dat[7] := 9

   Dat[8] := 8

   Dat[9] := 6

   Dat[10] := 9

   m := 10

   n := 0

   нц для k от 1 до 10

      если Dat[k] <= m то

         m := Dat[k]

         n := k

      все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {7, 9, 10, 5, 6, 7, 9, 8, 6, 9};

    int m = 10;

    int n = 0;

    for (int k = 0; k < 10; k++)

        if (Dat[k] <= m) {

            m = Dat[k];

            n = k + 1;

        }

    cout << m;

    return 0;

}


Ответ:

6
Тип Д9 № 511
i

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

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k, m, day AS INTEGER

Dat(1) = 2: Dat(2) = 2

Dat(3) = 3: Dat(4) = 3

Dat(5) = 4: Dat(6) = 4

Dat(7) = 5: Dat(8) = 5

Dat(9) = 6: Dat(10) = 6

m = Dat(1); day = 1

FOR k = 2 TO 10

IF Dat(k) >= m THEN

m = Dat(k)

day = k

ENDIF

NEXT k

PRINT day

Dat = [2, 2, 3, 3, 4, 4, 5, 5, 6, 6]

m = Dat[0]

day = 1

for k in range(1, 10):

    if Dat[k] >= m:

        m = Dat[k]

        day = k + 1

print (day)

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

Var k, m, day: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 2; Dat[2] := 2;

   Dat[3] := 3; Dat[4] := 3;

   Dat[5] := 4; Dat[6] := 4;

   Dat[7] := 5; Dat[8] := 5;

   Dat[9] := 6; Dat[10] := 6;

   m := Dat[1];

   day := 1;

   for k := 2 to 10 do

     if Dat[k] >= m then

      begin

        m := Dat[k];

        day := k;

      end;

   writeln(day);

End.

   алг

   нач

   цел­таб Dat[1:10]

   цел k, m, day

   Dat[1] := 2

   Dat[2] := 2

   Dat[3] := 3

   Dat[4] := 3

   Dat[5] := 4

   Dat[6] := 4

   Dat[7] := 5

   Dat[8] := 5

   Dat[9] := 6

   Dat[10] := 6

   m := Dat[1]

   day := 1

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

      если Dat[k] >= m то

         m := Dat[k]

         day := k

      все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {2, 2, 3, 3, 4, 4, 5, 5, 6, 6};

    int m = Dat[0];

    int day = 1;

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

        if (Dat[k] >= m) {

            m = Dat[k];

            day = k + 1;

        }

    cout << day;

    return 0;

}


Ответ:

7
Тип Д9 № 909
i

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

Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM Tem(12) AS INTEGER

DIM k, b AS INTEGER

Tem(1) = 22: Tem(2) = 25

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

Tem(5) = 16: Tem(6) = 14

Tem(7) = 20: Tem(8) = 23

Tem(9) = 17: Tem(10) = 19

Tem(11) = 20: Tem(12) = 21

b = 0

FOR k = 1 TO 12

IF Tem(k) < 19 THEN

b = b + Tem(k)

ENDIF

NEXT k

PRINT b

Tem = [22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21]

b = 0

for k in range (12):

    if Tem[k] < 19:

        b = b + Tem[k]

print (b)

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

Var k, b: integer;

Tem: array[1..12] of integer;

Begin

   Tem[1]:=22;Tem[2]:=25;

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

   Tem[5]:=16;Tem[6]:=14;

   Tem[7]:=20;Tem[8]:=23;

   Tem[9]:=17;Tem[10]:=19;

   Tem[11]:=20;Tem[12]:=21;

   b := 0;

   for k := 1 to 12 do

     if Tem[k] < 19 then

      begin

        b := b + Tem[k];

      end;

   writeln(b);

End.

  алг

нач

   цел­таб Tem[1:12]

   цел k, b

   Tem[1] := 22

   Tem[2] := 25

   Tem[3] := 20

   Tem[4] := 18

   Tem[5] := 16

   Tem[6] := 14

   Tem[7] := 20

   Tem[8] := 23

   Tem[9] := 17

   Tem[10] := 19

   Tem[11] := 20

   Tem[12] := 21

   b := 0

   нц для k от 1 до 12

      если Tem[k] < 19 то

         b := b + Tem[k]

      все

   кц

   вывод b

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Tem[12] = {22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21};

    int b = 0;

    for (int k = 0; k < 12; k++)

        if (Tem[k] < 19) b = b + Tem[k];

    cout << b;

    return 0;

}


Ответ:

8
Тип Д9 № 1081
i

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

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k, m, n AS INTEGER

Dat(1) = 7: Dat(2) = 9

Dat(3) = 10: Dat(4) = 5

Dat(5) = 6: Dat(6) = 7

Dat(7) = 9: Dat(8) = 10

Dat(9) = 6: Dat(10) = 9

m = 0; n = 0

FOR k = 1 TO 10

IF Dat(k) >= m THEN

m = Dat(k)

n = k

ENDIF

NEXT k

PRINT n

Dat = [7, 9, 10, 5, 6, 7, 9, 10, 6, 9]

m = 0

n = 0

for k in range(10):

    if Dat[k] >= m:

        m = Dat[k]

        n = k + 1

print (n)

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

Var k, m, n: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 7; Dat[2] := 9;

   Dat[3] := 10; Dat[4] := 5;

   Dat[5] := 6; Dat[6] := 7;

   Dat[7] := 9; Dat[8] := 10;

   Dat[9] := 6; Dat[10] := 9;

   m := 0;

   n := 0;

   for k := 1 to 10 do

     if Dat[k] >= m then

      begin

        m := Dat[k];

        n := k;

      end;

   writeln(n);

End.

   алг

   нач

   цел­таб Dat[1:10]

   цел k, m, n

   Dat[1] := 7

   Dat[2] := 9

   Dat[3] := 10

   Dat[4] := 5

   Dat[5] := 6

   Dat[6] := 7

   Dat[7] := 9

   Dat[8] := 10

   Dat[9] := 6

   Dat[10] := 9

   m := 0

   n := 0

   нц для k от 1 до 10

      если Dat[k] >= m то

         m := Dat[k]

         n := k

      все

   кц

   вывод n

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {7, 9, 10, 5, 6, 7, 9, 10, 6, 9};

    int m = 0;

    int n = 0;

    for (int k = 0; k < 10; k++)

        if (Dat[k] >= m) {

            m = Dat[k];

            n = k + 1;

        }

    cout << n;

    return 0;

}


Ответ:

9
Тип Д9 № 471
i

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

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k, m, day AS INTEGER

Dat(1) = 2: Dat(2) = 6

Dat(3) = 3: Dat(4) = 5

Dat(5) = 4: Dat(6) = 4

Dat(7) = 5: Dat(8) = 3

Dat(9) = 6: Dat(10) = 2

m = Dat(1); day = 1

FOR k = 2 TO 10

IF Dat(k) > m THEN

m = Dat(k)

day = k

ENDIF

NEXT k

PRINT day

Dat = [2, 6, 3, 5, 4, 4, 5, 3, 6, 2]

m = Dat[0]

day = 1

for k in range(1, 10):

    if Dat[k] > m:

        m = Dat[k]

        day = k + 1

print (day)

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

Var k, m, day: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 2; Dat[2] := 6;

   Dat[3] := 3; Dat[4] := 5;

   Dat[5] := 4; Dat[6] := 4;

   Dat[7] := 5; Dat[8] := 3;

   Dat[9] := 6; Dat[10] := 2;

   m := Dat[1];

   day := 1;

   for k := 2 to 10 do

     if Dat[k] > m then

      begin

        m := Dat[k];

        day := k;

      end;

   writeln(day);

End.

   алг

   нач

   цел­таб Dat[1:10]

   цел k, m, day

   Dat[1] := 2

   Dat[2] := 6

   Dat[3] := 3

   Dat[4] := 5

   Dat[5] := 4

   Dat[6] := 4

   Dat[7] := 5

   Dat[8] := 3

   Dat[9] := 6

   Dat[10] := 2

   m := Dat[1]

   day := 1

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

      если Dat[k] > m то

         m := Dat[k]

         day := k

      все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {2, 6, 3, 5, 4, 4, 5, 3, 6, 2};

    int m = Dat[0];

    int day = 1;

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

        if (Dat[k] > m) {

            m = Dat[k];

            day = k + 1;

        }

    cout << day;

    return 0;

}


Ответ:

10
Тип Д9 № 411
i

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

Бей­сикPython

DIM Dat(12) AS INTEGER

DIM k, m, month AS INTEGER

Dat(1) = 2: Dat(2) = 5

Dat(3) = 6: Dat(4) = 8

Dat(5) = 8: Dat(6) = 5

Dat(7) = 3: 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 = [2, 5, 6, 8, 8, 5, 3, 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] := 2; Dat[2] := 5;

   Dat[3] := 6; Dat[4] := 8;

   Dat[5] := 8; Dat[6] := 5;

   Dat[7] := 3; 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] := 2

   Dat[2] := 5

   Dat[3] := 6

   Dat[4] := 8

   Dat[5] := 8

   Dat[6] := 5

   Dat[7] := 3

   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 <iostream>

using namespace std;

int main() {

    int Dat[12] = {2, 5, 6, 8, 8, 5, 3, 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;

}


Ответ:

11
Тип Д9 № 826
i

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

Бей­сикPython

DIM App(12) AS INTEGER

DIM k,m AS INTEGER

App(1) = 100: App(2) = 128

App(3) = 80: App(4) = 99

App(5) = 120: App(6) = 69

App(7) = 55: App(8) = 115

App(9) = 84: App(10) = 111

App(11) = 59: App(12) = 100

m = 0

FOR k = 1 TO 12

IF App(k) < 80 THEN

m = m + 1

ENDIF

NEXT k

m = m + 20

PRINT m

App = [100, 128, 80, 99, 120, 69, 55, 115, 84, 111, 59, 100]

m = 0

for k in range(12):

    if App[k] < 80:

        m = m + 1

m = m + 20

print (m)

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

Var k, m: integer;

App: array[1..12] of integer;

Begin

 App[1]:=100; App[2]:=128;

 App[3]:=80; App[4]:=99;

 App[5]:=120; App[6]:=69;

 App[7]:=55; App[8]:=115;

 App[9]:=84; App[10]:=111;

 App[11]:=59;App[12]:=100;

 m := 0;

 for k := 1 to 12 do

   if App[k] < 80 then

    begin

      m := m + 1;

    end;

m := m + 20;

writeln(m);

End.

   алг

   нач

   цел­таб App[1:12]

   цел k, m

   App[1] := 100

   App[2] := 128

   App[3] := 80

   App[4] := 99

   App[5] := 120

   App[6] := 69

   App[7] := 55

   App[8] := 115

   App[9] := 84

   App[10] := 111

   App[11] := 59

   App[12] := 100

   m := 0

   нц для k от 1 до 12

      если App[k] < 80 то

         m := m + 1

      все

   кц

   m := m + 20

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int App[12] = {100, 128, 80, 99, 120, 69, 55, 115, 84, 111, 59, 100};

    int m = 0;

    for (int k = 0; k < 12; k++)

        if (App[k] < 80) m = m + 1;

    m = m + 20;

    cout << m;

    return 0;

}


Ответ:

12
Тип Д9 № 1144
i

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

Бей­сикPython

DIM Dat(7) AS INTEGER

DIM k, day AS INTEGER

Dat(1) = 14: Dat(2) = 9

Dat(3) = 0: Dat(4) = 15

Dat(5) = 0: Dat(6) = 15

Dat(7) = 10

day = 0

FOR k = 1 TO 7

IF Dat(k) = 0 THEN

day = k

ENDIF

NEXT k

PRINT day

Dat = [14, 10, 0, 15, 0, 15, 10]

day = 0

for k in range(7):

    if Dat[k] == 0:

        day = k + 1

print (day)

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

Var k, day: integer;

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

Begin

   Dat[1] := 14; Dat[2] := 10;

   Dat[3] := 0; Dat[4] := 15;

   Dat[5] := 0; Dat[6] := 15;

   Dat[7] := 10;

   day := 0;

   for k := 1 to 7 do

     if Dat[k] = 0 then

      begin

        day := k;

      end;

   writeln(day);

End.

   алг

   нач

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

   цел k, day

   Dat[1] := 14

   Dat[2] := 10

   Dat[3] := 0

   Dat[4] := 15

   Dat[5] := 0

   Dat[6] := 15

   Dat[7] := 10

   day := 0

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

      если Dat[k] = 0 то

         day := k

      все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[7] = {14, 10, 0, 15, 0, 15, 10};

    int day = 0;

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

        if (Dat[k] == 0) day = k + 1;

    cout << day;

    return 0;

}


Ответ:

13
Тип Д9 № 531
i

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

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k, m, day AS INTEGER

Dat(1) = 2: Dat(2) = 2

Dat(3) = 3: Dat(4) = 3

Dat(5) = 2: Dat(6) = 2

Dat(7) = 5: Dat(8) = 5

Dat(9) = 6: Dat(10) = 6

m = Dat(1); day = 1

FOR k = 2 TO 10

IF Dat(k) <= m THEN

m = Dat(k)

day = k

ENDIF

NEXT k

PRINT day

Dat = [2, 2, 3, 3, 2, 2, 5, 5, 6, 6]

m = Dat[0]

day = 1

for k in range(1, 10):

    if Dat[k] <= m:

        m = Dat[k]

        day = k + 1

print (day)

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

Var k, m, day: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 2; Dat[2] := 2;

   Dat[3] := 3; Dat[4] := 3;

   Dat[5] := 2; Dat[6] := 2;

   Dat[7] := 5; Dat[8] := 5;

   Dat[9] := 6; Dat[10] := 6;

   m := Dat[1];

   day := 1;

   for k := 2 to 10 do

     if Dat[k] <= m then

      begin

        m := Dat[k];

        day := k;

      end;

   writeln(day);

End.

   алг

   нач

   цел­таб Dat[1:10]

   цел k, m, day

   Dat[1] := 2

   Dat[2] := 2

   Dat[3] := 3

   Dat[4] := 3

   Dat[5] := 2

   Dat[6] := 2

   Dat[7] := 5

   Dat[8] := 5

   Dat[9] := 6

   Dat[10] := 6

   m := Dat[1]

   day := 1

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

      если Dat[k] <= m то

         m := Dat[k]

         day := k

      все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {2, 2, 3, 3, 2, 2, 5, 5, 6, 6};

    int m = Dat[0];

    int day = 1;

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

        if (Dat[k] <= m) {

            m = Dat[k];

            day = k + 1;

        }

    cout << day;

    return 0;

}


Ответ:

14
Тип Д9 № 150
i

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

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 56: Dat(2) = 70

Dat(3) = 20: Dat(4) = 41

Dat(5) = 14: Dat(6) = 22

Dat(7) = 30: Dat(8) = 12

Dat(9) = 65: Dat(10) = 35

m = 0

FOR k = 1 TO 10

IF Dat(k) > 25 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [56, 70, 20, 41, 14, 22, 30, 12, 65, 35]

m = 0

for k in range(10):

    if Dat[k] > 25:

        m = m + 1

print (m)

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

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 56; Dat[2] := 70;

   Dat[3] := 20; Dat[4] := 41;

   Dat[5] := 14; Dat[6] := 22;

   Dat[7] := 30; Dat[8] := 12;

   Dat[9] := 65; Dat[10] := 35;

   m := 0;

   for k := 1 to 10 do

     if Dat[k] > 25 then

      begin

        m := m + 1;

      end;

   writeln(m);

End.

   алг

   нач

   цел­таб Dat[1:10]

   цел k, m

   Dat[1] := 56

   Dat[2] := 70

   Dat[3] := 20

   Dat[4] := 41

   Dat[5] := 14

   Dat[6] := 22

   Dat[7] := 30

   Dat[8] := 12

   Dat[9] := 65

   Dat[10] := 35

   m := 0

   нц для k от 1 до 10

      если Dat[k] > 25 то

         m := m + 1

      все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {56, 70, 20, 41, 14, 22, 30, 12, 65, 35};

    int m = 0;

    for (int k = 0; k < 10; k++)

        if (Dat[k] > 25) m = m + 1;

    cout << m;

    return 0;

}


Ответ:

15
Тип Д9 № 431
i

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

Бей­сикPython

DIM Dat(12) AS INTEGER

DIM k, m, month AS INTEGER

Dat(1) = 2: Dat(2) = 8

Dat(3) = 6: Dat(4) = 3

Dat(5) = 8: Dat(6) = 2

Dat(7) = 3: Dat(8) = 7

Dat(9) = 4: Dat(10) = 4

Dat(11) = 8: Dat(12) = 7

m = Dat(1); month = 1

FOR k = 2 TO 6

IF Dat(k) > m THEN

m = Dat(k)

month = k

ENDIF

NEXT k

PRINT month

Dat = [2, 8, 6, 3, 8, 2, 3, 7, 4, 4, 8, 7]

m = Dat[0]

month = 1

for k in range(1, 7):

    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] := 2; Dat[2] := 8;

   Dat[3] := 6; Dat[4] := 3;

   Dat[5] := 8; Dat[6] := 2;

   Dat[7] := 3; Dat[8] := 7;

   Dat[9] := 4; Dat[10] := 4;

   Dat[11] := 8; Dat[12] := 7;

   m := Dat[1];

   month := 1;

   for k := 2 to 6 do

     if Dat[k] > m then

      begin

        m := Dat[k];

        month := k;

      end;

   writeln(month);

End.

   алг

   нач

   цел­таб Dat[1:12]

   цел k, m, month

   Dat[1] := 2

   Dat[2] := 8

   Dat[3] := 6

   Dat[4] := 3

   Dat[5] := 8

   Dat[6] := 2

   Dat[7] := 3

   Dat[8] := 7

   Dat[9] := 4

   Dat[10] := 4

   Dat[11] := 8

   Dat[12] := 7

   m := Dat[1]

   month := 1

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

      если Dat[k] > m то

         m := Dat[k]

         month := k

      все

   кц

   вывод month

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[12] = {2, 8, 6, 3, 8, 2, 3, 7, 4, 4, 8, 7};

    int m = Dat[0];

    int month = 1;

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

        if (Dat[k] > m) {

            m = Dat[k];

            month = k + 1;

        }

    cout << month;

    return 0;

}


Ответ:
Завершить работу, свериться с ответами, увидеть решения.