информатика
сайты - меню - вход - новости




Каталог заданий.
Задания 10. Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке

Пройти тестирование по этим заданиям
Вернуться к каталогу заданий
Версия для печати и копирования в MS Word
1
Задание 10 № 10

В таб­ли­це 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) = 15 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] == 15:

        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]=15 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]=15 то

           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] == 15) m = m + 1;

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Центр, Урал. Вариант 1301.
Пояснение · ·

2
Задание 10 № 30

В таб­ли­це 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) > m THEN

m = Dat(k)

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] > 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 := 0;

   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 := 0

   нц для 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 = 0;

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

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

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Центр, Урал. Вариант 1302.
Пояснение · ·

3
Задание 10 № 50

В таблице 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;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Центр, Урал. Вариант 1303.
Пояснение · ·

4
Задание 10 № 70

В таб­ли­це 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;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Центр, Урал. Вариант 1304.

5
Задание 10 № 90

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

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

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

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

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

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

m = 0

FOR k = 1 TO 10

IF Dat(k) > m THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

Dat = [2, 5, 8, 5, 4, 2, 0, 3, 4, 5]

m = 0

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

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

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

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

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

   m := 0;

   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] := 2

   Dat[2] := 5

   Dat[3] := 8

   Dat[4] := 5

   Dat[5] := 4

   Dat[6] := 2

   Dat[7] := 0

   Dat[8] := 3

   Dat[9] := 4

   Dat[10] := 5

   m := 0

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

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

           m := Dat[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int m = 0;

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

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

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Сибирь, Даль­ний Восток. Вариант 1305.
Пояснение · ·

6
Задание 10 № 110

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

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

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

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

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

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

m = 10

FOR k = 1 TO 10

IF Dat(k) < m THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

Dat = [2, 5, 7, 5, 4, 2, 0, 3, 4, 5]

m = 10

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

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

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

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

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

   m := 10;

   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] := 2

   Dat[2] := 5

   Dat[3] := 7

   Dat[4] := 5

   Dat[5] := 4

   Dat[6] := 2

   Dat[7] := 0

   Dat[8] := 3

   Dat[9] := 4

   Dat[10] := 5

   m := 10

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

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

           m := Dat[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int m = 10;

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

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

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Сибирь, Даль­ний Восток. Вариант 1306.
Пояснение · ·

7
Задание 10 № 130

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

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

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

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

Dat(7) = 0: Dat(8) = 2

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

m = 0

FOR k = 1 TO 10

IF Dat(k) > 3 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [2, 5, 7, 5, 4, 2, 0, 2, 4, 5]

m = 0

for k in range(10):

    if Dat[k] > 3:

        m = m + 1

print (m)

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

Var k, m: integer;

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

Begin

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

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

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

   Dat[7] := 0; Dat[8] := 2;

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

   m := 0;

   for k := 1 to 10 do

      if Dat[k] > 3 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

   алг

   нач

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

   цел k, m

   Dat[1] := 2

   Dat[2] := 5

   Dat[3] := 7

   Dat[4] := 5

   Dat[5] := 4

   Dat[6] := 2

   Dat[7] := 0

   Dat[8] := 2

   Dat[9] := 4

   Dat[10] := 5

   m := 0

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

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

           m := m + 1

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {2, 5, 7, 5, 4, 2, 0, 2, 4, 5};

    int m = 0;

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

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

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Сибирь, Даль­ний Восток. Вариант 1307.
Пояснение · ·

8
Задание 10 № 150

В таб­ли­це 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;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1308.
Пояснение · ·

9
Задание 10 № 170

В таб­ли­це 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) < 35 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] < 35:

        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] < 35 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] < 35 то

           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] < 35) m = m + 1;

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1309.
Пояснение · ·

10
Задание 10 № 190

В таб­ли­це 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 = 100

FOR k = 1 TO 10

IF Dat(k) < m THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

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

m = 100

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] := 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 := 100;

   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] := 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 := 100

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

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

           m := Dat[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int m = 100;

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

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

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1310.
Пояснение · ·

11
Задание 10 № 210

В таб­ли­це 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) > m THEN

m = Dat(k)

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] > m:

        m = Dat[k]

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] > m then

       begin

          m := Dat[k];

       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] > m то

           m := Dat[k]

       все

   кц

   вывод 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] > m) m = Dat[k];

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1311.

12
Задание 10 № 230

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 16: Dat(2) = 20

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

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

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

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

m = 0

FOR k = 1 TO 10

IF Dat(k) < 25 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [16, 20, 20, 41, 14, 21, 28, 12, 15, 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] := 16; Dat[2] := 20;

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

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

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

   Dat[9] := 15; 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] := 16

   Dat[2] := 20

   Dat[3] := 20

   Dat[4] := 41

   Dat[5] := 14

   Dat[6] := 21

   Dat[7] := 28

   Dat[8] := 12

   Dat[9] := 15

   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] = {16, 20, 20, 41, 14, 21, 28, 12, 15, 35};

    int m = 0;

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

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

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1312.

13
Задание 10 № 250

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 16: Dat(2) = 20

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

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

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

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

m = 50

FOR k = 1 TO 10

IF Dat(k) < m THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

Dat = [16, 20, 20, 41, 14, 21, 28, 11, 15, 35]

m = 50

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

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

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

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

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

   m := 50;

   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] := 16

   Dat[2] := 20

   Dat[3] := 20

   Dat[4] := 41

   Dat[5] := 14

   Dat[6] := 21

   Dat[7] := 28

   Dat[8] := 11

   Dat[9] := 15

   Dat[10] := 35

   m := 50

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

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

           m := Dat[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {16, 20, 20, 41, 14, 21, 28, 11, 15, 35};

    int m = 50;

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

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

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1313.
Пояснение · ·

14
Задание 10 № 270

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 16: Dat(2) = 20

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

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

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

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

m = 0

FOR k = 1 TO 10

IF Dat(k) > m THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

Dat = [16, 20, 20, 41, 14, 21, 28, 12, 15, 35]

m = 0

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

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

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

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

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

   m := 0;

   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] := 16

   Dat[2] := 20

   Dat[3] := 20

   Dat[4] := 41

   Dat[5] := 14

   Dat[6] := 21

   Dat[7] := 28

   Dat[8] := 12

   Dat[9] := 15

   Dat[10] := 35

   m := 0

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

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

           m := Dat[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {16, 20, 20, 41, 14, 21, 28, 12, 15, 35};

    int m = 0;

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

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

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1314.

15
Задание 10 № 290

В таб­ли­це 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 n

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 (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] := 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(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] := 8

   Dat[9] := 6

   Dat[10] := 9

   m := 10

   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, 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 << n;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1315.
Пояснение · ·

16
Задание 10 № 310

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

 

БейсикPython

DIM Dat(11) AS INTEGER

DIM k, m AS INTEGER

Dat(1) = 20: Dat(2) = 27

Dat(3) = 19: Dat(4) = 28

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

Dat(7) = 24: Dat(8) = 28

Dat(9) = 26: Dat(10) = 21

Dat(11) = 27

m = 0;

FOR k = 1 TO 11

IF Dat(k) < 25 THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

Dat = [20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27]

m = 0

for k in range(11):

    if Dat[k] < 25:

        m = Dat[k]

print (m)

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

Var k, m: integer;

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

Begin

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

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

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

   Dat[7] := 24; Dat[8] := 28;

   Dat[9] := 26; Dat[10] := 21;

   Dat[11] := 27;

   m := 0;

   for k := 1 to 11 do

      if Dat[k] < 25 then

       begin

          m := Dat[k];

       end;

   writeln(m);

End.

   алг

   нач

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

   цел k, m

   Dat[1] := 20

   Dat[2] := 27

   Dat[3] := 19

   Dat[4] := 28

   Dat[5] := 26

   Dat[6] := 22

   Dat[7] := 24

   Dat[8] := 28

   Dat[9] := 26

   Dat[10] := 21

   Dat[11] := 27

   m := 0

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

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

           m := Dat[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[11] = {20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27};

    int m = 0;

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

        if (Dat[k] < 25) {

            m = Dat[k];

        }

    cout << m;

    return 0;

}

 

Источник: ГИА по информатике 31.05.2013. Основная волна. Вариант 1316.

17
Задание 10 № 330

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

 

БейсикPython

DIM Dat(11) AS INTEGER

DIM k, m AS INTEGER

Dat(1) = 20: Dat(2) = 25

Dat(3) = 19: Dat(4) = 25

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

Dat(7) = 24: Dat(8) = 28

Dat(9) = 26: Dat(10) = 21

Dat(11) = 27

m = 0;

FOR k = 1 TO 11

IF Dat(k) > 22 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [20, 25, 19, 25, 26, 22, 24, 28, 26, 21, 27]

m = 0

for k in range(11):

    if Dat[k] > 22:

        m = m + 1

print (m)

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

Var k, m: integer;

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

Begin

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

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

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

   Dat[7] := 24; Dat[8] := 28;

   Dat[9] := 26; Dat[10] := 21;

   Dat[11] := 27;

   m := 0;

   for k := 1 to 11 do

      if Dat[k] > 22 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

   алг

   нач

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

   цел k, m

   Dat[1] := 20

   Dat[2] := 25

   Dat[3] := 19

   Dat[4] := 25

   Dat[5] := 26

   Dat[6] := 22

   Dat[7] := 24

   Dat[8] := 28

   Dat[9] := 26

   Dat[10] := 21

   Dat[11] := 27

   m := 0

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

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

           m := m + 1

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[11] = {20, 25, 19, 25, 26, 22, 24, 28, 26, 21, 27};

    int m = 0;

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

        if (Dat[k] > 22) {

            m = m + 1;

        }

    cout << m;

    return 0;

}

 

Источник: Демонстрационная вер­сия ГИА—2013 по информатике.
Пояснение · ·

18
Задание 10 № 351

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

 

БейсикPython

DIM Dat(8) AS INTEGER

DIM k, m, term AS INTEGER

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

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

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

Dat(7) = 4: Dat(8) = 7

m = Dat(1); term = 1

FOR k = 2 TO 8

IF Dat(k) < m THEN

m = Dat(k)

term = k

ENDIF

NEXT k

PRINT term

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

m = Dat[0]

term = 1

for k in range(1, 8):

    if Dat[k] < m:

        m = Dat[k]

        term = k + 1

print (term)

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

Var k, m, term: integer;

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

Begin

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

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

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

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

   m := Dat[1];

   term := 1;

   for k := 2 to 8 do

      if Dat[k] < m then

       begin

          m := Dat[k];

          term := k;

       end;

   writeln(term);

End.

   алг

   нач

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

   цел k, m, term

   Dat[1] := 7

   Dat[2] := 7

   Dat[3] := 6

   Dat[4] := 8

   Dat[5] := 4

   Dat[6] := 5

   Dat[7] := 4

   Dat[8] := 7

   m := Dat[1]

   term := 1

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

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

           m := Dat[k]

           term := k

       все

   кц

   вывод term

   кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int m = Dat[0];

    int term = 1

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

        if (Dat[k] < m) {

            m = Dat[k];

            term = k + 1;

        }

    cout << term;

    return 0;

}

 

Пояснение · ·

19
Задание 10 № 371

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

 

БейсикPython

DIM Dat(8) AS INTEGER

DIM k, m, term AS INTEGER

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

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

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

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

m = Dat(1); term = 1

FOR k = 2 TO 8

IF Dat(k) > m THEN

m = Dat(k)

term = k

ENDIF

NEXT k

PRINT term

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

m = Dat[0]

term = 1

for k in range(1, 8):

    if Dat[k] > m:

        m = Dat[k]

        term = k + 1

print (term)

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

Var k, m, term: integer;

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

Begin

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

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

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

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

   m := Dat[1];

   term := 1;

   for k := 2 to 8 do

      if Dat[k] > m then

       begin

          m := Dat[k];

          term := k;

       end;

   writeln(term);

End.

   алг

   нач

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

   цел k, m, term

   Dat[1] := 7

   Dat[2] := 7

   Dat[3] := 6

   Dat[4] := 8

   Dat[5] := 4

   Dat[6] := 5

   Dat[7] := 8

   Dat[8] := 7

   m := Dat[1]

   term := 1

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

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

           m := Dat[k]

           term := k

       все

   кц

   вывод term

   кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int m = Dat[0];

    int term = 1

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

        if (Dat[k] > m) {

            m = Dat[k];

            term = k + 1;

        }

    cout << term;

    return 0;

}

 


20
Задание 10 № 391

В таб­ли­це 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 <iostream>

using namespace std;

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;

}

 


21
Задание 10 № 411

В таб­ли­це 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;

}

 

Пояснение · ·

22
Задание 10 № 431

В таб­ли­це 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;

}

 

Пояснение · ·

23
Задание 10 № 451

В таб­ли­це 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) = 8: Dat(10) = 3

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

m = Dat(1); month = 1

FOR k = 8 TO 12

IF Dat(k) > m THEN

m = Dat(k)

month = k

ENDIF

NEXT k

PRINT month

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

m = Dat[0]

month = 1

for k in range(7, 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] := 8;

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

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

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

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

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

   m := Dat[1];

   month := 1;

   for k := 8 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] := 8

   Dat[3] := 6

   Dat[4] := 3

   Dat[5] := 8

   Dat[6] := 2

   Dat[7] := 3

   Dat[8] := 7

   Dat[9] := 8

   Dat[10] := 3

   Dat[11] := 8

   Dat[12] := 7

   m := Dat[1]

   month := 1

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

       если 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, 8, 3, 8, 7};

    int m = Dat[0];

    int month = 1;

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

        if (Dat[k] > m) {

            m = Dat[k];

            month = k + 1;

        }

    cout << month;

    return 0;

}

 


24
Задание 10 № 471

В таб­ли­це 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;

}

 


25
Задание 10 № 491

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k, m, day AS INTEGER

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

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

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

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

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

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

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

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

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

   Dat[2] := 2

   Dat[3] := 5

   Dat[4] := 3

   Dat[5] := 4

   Dat[6] := 4

   Dat[7] := 3

   Dat[8] := 5

   Dat[9] := 2

   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] = {6, 2, 5, 3, 4, 4, 3, 5, 2, 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;

}

 


26
Задание 10 № 511

В таб­ли­це 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;

}

 

Пояснение · ·

27
Задание 10 № 531

В таб­ли­це 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;

}

 


28
Задание 10 № 551

В таб­ли­це Work хра­нят­ся дан­ные о ко­ли­че­стве заказов, при­ня­тых фир­мой «Алоэ» с пер­во­го по 15 ноября. (Work[1] − число заказов, при­ня­тых 1 ноября, Work[2] − 2 но­яб­ря и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на пяти язы­ках программирования:

 

БейсикPython

DIM Work(15) AS INTEGER

DIM k,m AS INTEGER

Work(1) = 5: Work(2) = 4

Work(3) = 5: Work(4) = 7

Work(5) = 6: Work(6) = 12

Work(7) = 7: Work(8) = 3

Work(9) = 9: Work(10) = 7

Work(11) = 0: Work(12) = 9

Work(13) = 1: Work(14) = 0

Work(15) = 8

m = 0

FOR k = 1 TO 15

IF Work(k) < 7 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Work = [5, 4, 5, 7, 6, 12, 7, 3, 9, 7, 0, 9, 1, 0, 8]

m = 0

for k in range(15):

    if Work[k] < 7:

        m = m + 1

print (m)

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

Var k, m: integer;

Work: array[1..15] of integer;

Begin

 Work[1]:=5; Work[2]:=4;

 Work[3]:=5; Work[4]:=7;

 Work[5]:=6; Work[6]:=12;

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

 Work[9]:=9; Work[10]:=7;

 Work[11]:=0; Work[12]:=9;

 Work[13]:=1; Work[14]:=0;

 Work[15]:=8;

 m := 0;

 for k := 1 to 15 do

    if Work[k] < 7 then

     begin

        m := m + 1;

     end;

writeln(m);

End.

   алг

   нач

   цел­таб Work[1:15]

   цел k, m

   Work[1] := 5

   Work[2] := 4

   Work[3] := 5

   Work[4] := 7

   Work[5] := 6

   Work[6] := 12

   Work[7] := 7

   Work[8] := 3

   Work[9] := 9

   Work[10] := 7

   Work[11] := 0

   Work[12] := 9

   Work[13] := 1

   Work[14] := 0

   Work[15] := 8

   m := 0

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

       если Work[k] < 7 то

           m := m + 1

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Work[15] = {5, 4, 5, 7, 6, 12, 7, 3, 9, 7, 0, 9, 1, 0, 8};

    int m = 0;

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

        if (Work[k] < 7) m = m + 1;

    cout << m;

    return 0;

}

 

Пояснение · ·

29
Задание 10 № 571

В таблице Work хранятся данные о количестве заказов, принятых фирмой «Конфетти» с первого по 15 декабря. (Work[1] − число заказов, принятых 1 декабря, Work[2] − 2 декабря и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования:

 

БейсикPython

DIM Work(15) AS INTEGER

DIM k,m AS INTEGER

Work(1) = 5: Work(2) = 4

Work(3) = 5: Work(4) = 7

Work(5) = 6: Work(6) = 12

Work(7) = 7: Work(8) = 3

Work(9) = 9: Work(10) = 7

Work(11) = 0: Work(12) = 9

Work(13) = 1: Work(14) = 0

Work(15) = 8

m = 0

FOR k = 1 TO 15

IF Work(k) > 6 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Work = [5, 4, 5, 7, 6, 12, 7, 3, 9, 7, 0, 9, 1, 0, 8]

m = 0

for k in range(15):

    if Work[k] > 6:

        m = m + 1

print (m)

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

Var k, m: integer;

Work: array[1..15] of integer;

Begin

 Work[1]:=5; Work[2]:=4;

 Work[3]:=5; Work[4]:=7;

 Work[5]:=6; Work[6]:=12;

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

 Work[9]:=9; Work[10]:=7;

 Work[11]:=0; Work[12]:=9;

 Work[13]:=1; Work[14]:=0;

 Work[15]:=8;

 m := 0;

 for k := 1 to 15 do

    if Work[k] > 6 then

     begin

        m := m + 1;

     end;

writeln(m);

End.

   алг

   нач

   цел­таб Work[1:15]

   цел k, m

   Work[1] := 5

   Work[2] := 4

   Work[3] := 5

   Work[4] := 7

   Work[5] := 6

   Work[6] := 12

   Work[7] := 7

   Work[8] := 3

   Work[9] := 9

   Work[10] := 7

   Work[11] := 0

   Work[12] := 9

   Work[13] := 1

   Work[14] := 0

   Work[15] := 8

   m := 0

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

       если Work[k] > 6 то

           m := m + 1

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Work[15] = {5, 4, 5, 7, 6, 12, 7, 3, 9, 7, 0, 9, 1, 0, 8};

    int m = 0;

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

        if (Work[k] > 6) m = m + 1;

    cout << m;

    return 0;

}

 

Пояснение · ·

30
Задание 10 № 591

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

 

БейсикPython

DIM Tur(11) AS INTEGER

DIM k,m AS INTEGER

Tur(1) = 1: Tur(2) = 11

Tur(3) = 8: Tur(4) = 12

Tur(5) = 5: Tur(6) = 6

Tur(7) = 15: Tur(8) = 16

Tur(9) = 16: Tur(10) = 21

Tur(11) = 7

m = 0

FOR k = 1 TO 11

IF Tur(k) < 10 THEN

m = m + Tur(k)

ENDIF

NEXT k

PRINT m

Tur = [1, 11, 8, 12, 5, 6, 15, 16, 16, 21, 7]

m = 0

for k in range(11):

    if Tur[k] < 10:

        m = m + Tur[k]

print (m)

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

Var k, m: integer;

Tur: array[1..11] of integer;

Begin

 Tur[1]:=1; Tur[2]:=11;

 Tur[3]:=8; Tur[4]:=12;

 Tur[5]:=5; Tur[6]:=6;

 Tur[7]:=15; Tur[8]:=16;

 Tur[9]:=16; Tur[10]:=21;

 Tur[11]:=7;

 m := 0;

 for k := 1 to 11 do

    if Tur[k] < 10 then

     begin

        m := m + Tur[k];

     end;

writeln(m);

End.

   алг

   нач

   цел­таб Tur[1:11]

   цел k, m

   Tur[1] := 1

   Tur[2] := 11

   Tur[3] := 8

   Tur[4] := 12

   Tur[5] := 5

   Tur[6] := 6

   Tur[7] := 15

   Tur[8] := 16

   Tur[9] := 16

   Tur[10] := 21

   Tur[11] := 7

   m := 0

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

       если Tur[k] < 10 то

           m := m + Tur[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Tur[11] = {1, 11, 8, 12, 5, 6, 15, 16, 16, 21, 7};

    int m = 0;

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

        if (Tur[k] < 10) m = m + Tur[k];

    cout << m;

    return 0;

}

 


31
Задание 10 № 611

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

 

БейсикPython

DIM Tur(11) AS INTEGER

DIM k,m AS INTEGER

Tur(1) = 1: Tur(2) = 11

Tur(3) = 8: Tur(4) = 12

Tur(5) = 5: Tur(6) = 6

Tur(7) = 15: Tur(8) = 16

Tur(9) = 16: Tur(10) = 21

Tur(11) = 7

m = 0

FOR k = 1 TO 11

IF Tur(k) > 12 THEN

m = m + Tur(k)

ENDIF

NEXT k

PRINT m

Tur = [1, 11, 8, 12, 5, 6, 15, 16, 16, 21, 7]

m = 0

for k in range(11):

    if Tur[k] > 12:

        m = m + Tur[k]

print (m)

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

Var k, m: integer;

Tur: array[1..11] of integer;

Begin

 Tur[1]:=1; Tur[2]:=11;

 Tur[3]:=8; Tur[4]:=12;

 Tur[5]:=5; Tur[6]:=6;

 Tur[7]:=15; Tur[8]:=16;

 Tur[9]:=16; Tur[10]:=21;

 Tur[11]:=7;

 m := 0;

 for k := 1 to 11 do

    if Tur[k] > 12 then

     begin

        m := m + Tur[k];

     end;

writeln(m);

End.

   алг

   нач

   цел­таб Tur[1:11]

   цел k, m

   Tur[1] := 1

   Tur[2] := 11

   Tur[3] := 8

   Tur[4] := 12

   Tur[5] := 5

   Tur[6] := 6

   Tur[7] := 15

   Tur[8] := 16

   Tur[9] := 16

   Tur[10] := 21

   Tur[11] := 7

   m := 0

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

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

           m := m + Tur[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Tur[11] = {1, 11, 8, 12, 5, 6, 15, 16, 16, 21, 7};

    int m = 0;

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

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

    cout << m;

    return 0;

}

 


32
Задание 10 № 631

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

 

БейсикPython

DIM Ani(12) AS INTEGER

DIM k,m AS INTEGER

Ani(1) = 17: Ani(2) = 17

Ani(3) = 19: Ani(4) = 21

Ani(5) = 23: Ani(6) = 22

Ani(7) = 24: Ani(8) = 16

Ani(9) = 19: Ani(10) = 21

Ani(11) = 17: Ani(12) = 17

m = 0

FOR k = 1 TO 12

IF Ani(k) = 17 THEN

m = m + Ani(k)

ENDIF

NEXT k

PRINT m

Ani = [17, 17, 19, 21, 23, 22, 24, 16, 19, 21, 17, 17]

m = 0

for k in range(12):

    if Ani[k] == 17:

        m = m + Ani[k]

print (m)

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

Var k, m: integer;

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

Begin

 Ani[1] := 17; Ani[2] := 17;

 Ani[3] := 19; Ani[4] := 21;

 Ani[5] := 23; Ani[6] := 22;

 Ani[7] := 24; Ani[8] := 16;

 Ani[9] := 19; Ani[10] := 21;

 Ani[11] := 17; Ani[12] := 17;

 m := 0;

 for k := 1 to 12 do

    if Ani[k] = 17 then

     begin

        m := m + Ani[k];

     end;

writeln(m);

End.

   алг

   нач

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

   цел k, m

   Ani[1] := 17

   Ani[2] := 17

   Ani[3] := 19

   Ani[4] := 21

   Ani[5] := 23

   Ani[6] := 22

   Ani[7] := 24

   Ani[8] := 16

   Ani[9] := 19

   Ani[10] := 21

   Ani[11] := 17

   Ani[12] := 17

   m := 0

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

       если Ani[k] = 17 то

           m := m + Ani[k]

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Ani[12] = {17, 17, 19, 21, 23, 22, 24, 16, 19, 21, 17, 17};

    int m = 0;

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

        if (Ani[k] == 17) m = m + Ani[k];

    cout << m;

    return 0;

}

 

Пояснение · ·

33
Задание 10 № 651

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

 

БейсикPython

DIM Sea(12) AS INTEGER

DIM k,s AS INTEGER

Sea(1) = 170: Sea(2) = 170

Sea(3) = 190: Sea(4) = 210

Sea(5) = 230: Sea(6) = 220

Sea(7) = 240: Sea(8) = 160

Sea(9) = 190: Sea(10) = 210

Sea(11) = 170: Sea(12) = 170

s = 100

FOR k = 1 TO 12

IF Sea(k) > 220 THEN

s = s + Sea(k)

ENDIF

NEXT k

PRINT s

Sea = [170, 170, 190, 210, 230, 220, 240, 160, 190, 210, 170, 170]

s = 100

for k in range(12):

    if Sea[k] > 220:

        s = s + Sea[k]

print (s)

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

Var k, s: integer;

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

Begin

 Sea[1]:=170; Sea[2]:=170;

 Sea[3]:=190; Sea[4]:=210;

 Sea[5]:=230; Sea[6]:=220;

 Sea[7]:=240; Sea[8]:=160;

 Sea[9]:=190; Sea[10]:=210;

 Sea[11]:=170; Sea[12]:=170;

 s := 100;

 for k := 1 to 12 do

    if Sea[k] > 220 then

     begin

        s := s + Sea[k];

     end;

writeln(s);

End.

   алг

   нач

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

   цел k, s

   Sea[1] := 170

   Sea[2] := 170

   Sea[3] := 190

   Sea[4] := 210

   Sea[5] := 230

   Sea[6] := 220

   Sea[7] := 240

   Sea[8] := 160

   Sea[9] := 190

   Sea[10] := 210

   Sea[11] := 170

   Sea[12] := 170

   s := 100

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

       если Sea[k] > 220 то

           s := s + Sea[k]

       все

   кц

   вывод s

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Sea[12] = {170, 170, 190, 210, 230, 220, 240, 160, 190, 210, 170, 170};

    int s = 100;

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

        if (Sea[k] > 220) s = s + Sea[k];

    cout << s;

    return 0;

}

 


34
Задание 10 № 671

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

 

БейсикPython

DIM Ves(14) AS INTEGER

DIM i, n AS INTEGER

Ves(1) = 25: Ves(2) = 21

Ves(3) = 23: Ves(4) = 28

Ves(5) = 30: Ves(6) = 25

Ves(7) = 31: Ves(8) = 28

Ves(9) = 25: Ves(10) = 28

Ves(11) = 30: Ves(12) = 27

Ves(13) = 26: Ves(14) = 24

n = Ves(1)

FOR i = 1 TO 14

IF Ves(i) < n THEN

n = Ves(i)

ENDIF

NEXT i

PRINT n

Ves = [25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]

n = Ves[0]

for i in range(14):

    if Ves[i] < n:

        n = Ves[i]

print (n)

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

Var i, n: integer;

Ves: array[1..14] of integer;

Begin

 Ves[1] := 25; Ves[2] := 21;

 Ves[3] := 23; Ves[4] := 28;

 Ves[5] := 30; Ves[6] := 25;

 Ves[7] := 31; Ves[8] := 28;

 Ves[9] := 25; Ves[10] := 28;

 Ves[11] := 30; Ves[12] := 27;

 Ves[13] := 26; Ves[14] := 24;

 n := Ves[1];

 for i := 1 to 14 do

    if Ves[i] < n then

     begin

        n := Ves[i];

     end;

writeln(n);

End.

   алг

   нач

   цел­таб Ves[1:14]

   цел i, n

   Ves[1] := 25

   Ves[2] := 21

   Ves[3] := 23

   Ves[4] := 28

   Ves[5] := 30

   Ves[6] := 25

   Ves[7] := 31

   Ves[8] := 28

   Ves[9] := 25

   Ves[10] := 28

   Ves[11] := 30

   Ves[12] := 27

   Ves[13] := 26

   Ves[14] := 24

   n := Ves[1]

   нц для i от 1 до 14

       если Ves[i] < n то

           n := Ves[i]

       все

   кц

   вывод n

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Ves[14] = {25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24};

    int n = Ves[0];

    for (int i = 0; i < 14; i++)

        if (Ves[i] < n) n = Ves[i];

    cout << n;

    return 0;

}

 

Пояснение · ·

35
Задание 10 № 691

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

 

БейсикPython

DIM Ves(14) AS INTEGER

DIM i, n AS INTEGER

Ves(1) = 25: Ves(2) = 21

Ves(3) = 23: Ves(4) = 28

Ves(5) = 30: Ves(6) = 25

Ves(7) = 31: Ves(8) = 28

Ves(9) = 25: Ves(10) = 28

Ves(11) = 30: Ves(12) = 27

Ves(13) = 26: Ves(14) = 24

n = 0

FOR i = 1 TO 14

IF Ves(i) > 26 THEN

n = n + 1

ENDIF

NEXT i

PRINT n

Ves = [25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]

n = 0

for i in range(14):

    if Ves[i] > 26:

        n = n + 1

print (n)

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

Var i, n: integer;

Ves: array[1..14] of integer;

Begin

 Ves[1] := 25; Ves[2] := 21;

 Ves[3] := 23; Ves[4] := 28;

 Ves[5] := 30; Ves[6] := 25;

 Ves[7] := 31; Ves[8] := 28;

 Ves[9] := 25; Ves[10] := 28;

 Ves[11] := 30; Ves[12] := 27;

 Ves[13] := 26; Ves[14] := 24;

 n := 0;

 for i := 1 to 14 do

    if Ves[i] > 26 then

     begin

        n := n + 1;

     end;

writeln(n);

End.

   алг

   нач

   цел­таб Ves[1:14]

   цел i, n

   Ves[1] := 25

   Ves[2] := 21

   Ves[3] := 23

   Ves[4] := 28

   Ves[5] := 30

   Ves[6] := 25

   Ves[7] := 31

   Ves[8] := 28

   Ves[9] := 25

   Ves[10] := 28

   Ves[11] := 30

   Ves[12] := 27

   Ves[13] := 26

   Ves[14] := 24

   n := 0

   нц для i от 1 до 14

       если Ves[i] > 26 то

           n := n + 1

       все

   кц

   вывод n

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Ves[14] = {25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24};

    int n = 0;

    for (int i = 0; i < 14; i++)

        if (Ves[i] > 26) n = n + 1;

    cout << n;

    return 0;

}

 

Пояснение · ·

36
Задание 10 № 711

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 16: Dat(2) = 20

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

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

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

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

m = 0

FOR k = 1 TO 10

IF Dat(k) > m THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

Dat = [16, 20, 20, 41, 14, 21, 28, 12, 15, 35]

m = 0

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

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

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

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

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

   m := 0;

   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] := 16

   Dat[2] := 20

   Dat[3] := 20

   Dat[4] := 41

   Dat[5] := 14

   Dat[6] := 21

   Dat[7] := 28

   Dat[8] := 12

   Dat[9] := 15

   Dat[10] := 35

   m := 0

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

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

           m := Dat[k]

       все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {16, 20, 20, 41, 14, 21, 28, 12, 15, 35};

    int m = 0;

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

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

    cout << m;

    return 0;

}

 

Источник: Демонстрационная вер­сия ГИА—2014 по информатике.
Пояснение · ·

37
Задание 10 № 754

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

 

БейсикPython

DIM Tok(10) AS INTEGER

DIM k,m AS INTEGER

Tok(1) = 10: Tok(2) = 14

Tok(3) = 15: Tok(4) = 4

Tok(5) = 12: Tok(6) = 6

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

Tok(9) = 5: Tok(10) = 10

m = 22

FOR k = 1 TO 10

IF Tok(k) > 10 THEN

m = m − 1

ENDIF

NEXT k

PRINT m

Tok = [10, 14, 15, 4, 12, 6, 3, 5, 5, 10]

m = 22

for k in range (10):

    if Tok[k] > 10:

        m = m − 1

print (m)

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

Var k, m: integer;

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

Begin

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

   Tok[3] := 15; Tok[4] := 4;

   Tok[5] := 12; Tok[6] := 6;

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

   Tok[9] := 5; Tok[10] := 10;

   m := 22;

   for k := 1 to 10 do

      if Tok[k] > 10 then

       begin

          m := m − 1;

       end;

   writeln(m);

End.

  алг

нач

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

   цел k, m

   Tok[1] := 10

   Tok[2] := 14

   Tok[3] := 15

   Tok[4] := 4

   Tok[5] := 12

   Tok[6] := 6

   Tok[7] := 3

   Tok[8] := 5

   Tok[9] := 5

   Tok[10] := 10

   m := 22

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

       если Tok[k] > 10 то

           m := m − 1

       все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Tok[10] = {10, 14, 15, 4, 12, 6, 3, 5, 5, 10};

    int m = 22;

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

        if (Tok[k] > 10) m = m − 1;

    cout << m;

    return 0;

}

 


38
Задание 10 № 774

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

 

БейсикPython

DIM Tok(10) AS INTEGER

DIM k,m AS INTEGER

Tok(1) = 10: Tok(2) = 14

Tok(3) = 15: Tok(4) = 4

Tok(5) = 12: Tok(6) = 6

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

Tok(9) = 5: Tok(10) = 10

m = 0

FOR k = 1 TO 10

IF Tok(k) > 6 THEN

m = m + 2

ENDIF

NEXT k

PRINT m

Tok = [10, 14, 15, 4, 12, 6, 3, 5, 5, 10]

m = 0

for k in range (10):

    if Tok[k] > 6:

        m = m + 2

print (m)

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

Var k, m: integer;

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

Begin

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

   Tok[3] := 15; Tok[4] := 4;

   Tok[5] := 12; Tok[6] := 6;

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

   Tok[9] := 5; Tok[10] := 10;

   m := 0;

   for k := 1 to 10 do

      if Tok[k] > 6 then

       begin

          m := m + 2;

       end;

   writeln(m);

End.

  алг

нач

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

   цел k, m

   Tok[1] := 10

   Tok[2] := 14

   Tok[3] := 15

   Tok[4] := 4

   Tok[5] := 12

   Tok[6] := 6

   Tok[7] := 3

   Tok[8] := 5

   Tok[9] := 5

   Tok[10] := 10

   m := 0

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

       если Tok[k] > 6 то

           m := m + 2

       все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Tok[10] = {10, 14, 15, 4, 12, 6, 3, 5, 5, 10};

    int m = 0;

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

        if (Tok[k] > 6) m = m + 2;

    cout << m;

    return 0;

}

 


39
Задание 10 № 806

Владелец круп­но­го яб­ло­не­во­го сада в те­че­ние 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) > 100 THEN

m = m + 1

ENDIF

NEXT k

m = m + 10

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] > 100:

        m = m + 1

m = m + 10

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] > 100 then

     begin

        m := m + 1;

     end;

m := m + 10;

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] > 100 то

           m := m + 1

       все

   кц

   m := m + 10

   вывод 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] > 100) m = m + 1;

    m = m + 10;

    cout << m;

    return 0;

}

 

Пояснение · ·

40
Задание 10 № 826

Владелец круп­но­го яб­ло­не­во­го сада в те­че­ние 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;

}

 

Пояснение · ·

41
Задание 10 № 848

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

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

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

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

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

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

m = 0

FOR k = 1 TO 10

IF Dat(k) > 3 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

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

m = 0

for k in range (10):

    if Dat[k] > 3:

        m = m + 1

print (m)

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

Var k, m: integer;

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

Begin

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

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

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

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

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

   m := 0;

   for k := 1 to 10 do

      if Dat[k] > 3 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

  алг

нач

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

   цел k, m

   Dat[1] := 4

   Dat[2] := 5

   Dat[3] := 4

   Dat[4] := 3

   Dat[5] := 2

   Dat[6] := 3

   Dat[7] := 4

   Dat[8] := 5

   Dat[9] := 5

   Dat[10] := 3

   m := 0

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

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

           m := m + 1

       все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int m = 0;

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

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

    cout << m;

    return 0;

}

 

Пояснение · ·

42
Задание 10 № 868

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

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

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

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

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

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

m = 0

FOR k = 1 TO 10

IF Dat(k) < 4 THEN

m = m + Dat(k)

ENDIF

NEXT k

PRINT m

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

m = 0

for k in range (10):

    if Dat[k] < 4:

        m = m + Dat[k]

print (m)

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

Var k, m: integer;

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

Begin

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

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

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

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

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

   m := 0;

   for k := 1 to 10 do

      if Dat[k] < 4 then

       begin

          m := m + Dat[k];

       end;

   writeln(m);

End.

  алг

нач

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

   цел k, m

   Dat[1] := 4

   Dat[2] := 5

   Dat[3] := 4

   Dat[4] := 3

   Dat[5] := 2

   Dat[6] := 3

   Dat[7] := 4

   Dat[8] := 5

   Dat[9] := 5

   Dat[10] := 3

   m := 0

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

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

           m := m + Dat[k]

       все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int m = 0;

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

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

    cout << m;

    return 0;

}

 

Пояснение · ·

43
Задание 10 № 889

Сотрудник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу 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 = 15

FOR k = 1 TO 12

IF Tem(k) < 20 THEN

b = b + 1

ENDIF

NEXT k

PRINT b

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

b = 15

for k in range (12):

    if Tem[k] < 20:

        b = b + 1

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 := 15;

   for k := 1 to 12 do

      if Tem[k] < 20 then

       begin

          b := b + 1;

       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 := 15

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

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

           b := b + 1

       все

   кц

   вывод 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 = 15;

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

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

    cout << b;

    return 0;

}

 


44
Задание 10 № 909

Сотрудник метеобюро в ходе измерений среднесуточной температуры записывал показания термометра в таблицу 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;

}

 

Пояснение · ·

45
Задание 10 № 929

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

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

 

БейсикPython

DIM Flow(12) AS INTEGER

DIM k, m AS INTEGER

Flow(1) = 25: Flow(2) = 33

Flow(3) = 45: Flow(4) = 56

Flow(5) = 78: Flow(6) = 112

Flow(7) = 120: Flow(8) = 133

Flow(9) = 97: Flow(10) = 77

Flow(11) = 59: Flow(12) = 34

m = 23

FOR k = 1 TO 12

IF Flow(k) < 50 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Flow = [25, 33, 45, 56, 78, 112, 120, 133, 97, 77, 59, 34]

m = 23

for k in range (12):

    if Flow[k] < 50:

        m = m + 1

print (m)

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

Var k, m: integer;

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

Begin

   Flow[1]:=25;Flow[2]:=33;

   Flow[3]:=45;Flow[4]:=56;

   Flow[5]:=78;Flow[6]:=112;

   Flow[7]:=120;Flow[8]:=133;

   Flow[9]:=97;Flow[10]:=77;

   Flow[11]:=59;Flow[12]:=34;

   m := 23;

   for k := 1 to 12 do

      if Flow[k] < 50 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

  алг

  нач

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

   цел k, m

   Flow[1] := 25

   Flow[2] := 33

   Flow[3] := 45

   Flow[4] := 56

   Flow[5] := 78

   Flow[6] := 112

   Flow[7] := 120

   Flow[8] := 133

   Flow[9] := 97

   Flow[10] := 77

   Flow[11] := 59

   Flow[12] := 34

   m := 23

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

       если Flow[k] < 50 то

           m := m + 1

       все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Flow[12] = {25, 33, 45, 56, 78, 112, 120, 133, 97, 77, 59, 34};

    int m = 23;

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

        if (Flow[k] < 50) m = m + 1;

    cout << m;

    return 0;

}

 

Пояснение · ·

46
Задание 10 № 949

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

 

БейсикPython

DIM Flow(12) AS INTEGER

DIM k, m AS INTEGER

Flow(1) = 25: Flow(2) = 33

Flow(3) = 45: Flow(4) = 56

Flow(5) = 78: Flow(6) = 112

Flow(7) = 120: Flow(8) = 133

Flow(9) = 97: Flow(10) = 77

Flow(11) = 59: Flow(12) = 34

m = 35

FOR k = 1 TO 12

IF Flow(k) > 100 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Flow = [25, 33, 45, 56, 78, 112, 120, 133, 97, 77, 59, 34]

m = 35

for k in range (12):

    if Flow[k] > 100:

        m = m + 1

print (m)

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

Var k, m: integer;

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

Begin

   Flow[1]:=25;Flow[2]:=33;

   Flow[3]:=45;Flow[4]:=56;

   Flow[5]:=78;Flow[6]:=112;

   Flow[7]:=120;Flow[8]:=133;

   Flow[9]:=97;Flow[10]:=77;

   Flow[11]:=59;Flow[12]:=34;

   m := 35;

   for k := 1 to 12 do

      if Flow[k] > 100 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

  алг

  нач

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

   цел k, m

   Flow[1] := 25

   Flow[2] := 33

   Flow[3] := 45

   Flow[4] := 56

   Flow[5] := 78

   Flow[6] := 112

   Flow[7] := 120

   Flow[8] := 133

   Flow[9] := 97

   Flow[10] := 77

   Flow[11] := 59

   Flow[12] := 34

   m := 35

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

       если Flow[k] > 100 то

           m := m + 1

       все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Flow[12] = {25, 33, 45, 56, 78, 112, 120, 133, 97, 77, 59, 34};

    int m = 35;

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

        if (Flow[k] > 100) m = m + 1;

    cout << m;

    return 0;

}

 


47
Задание 10 № 1021

Известная авиа­ком­па­ния за­но­си­ла дан­ные о ко­ли­че­стве уте­рян­но­го ба­га­жа за год в таб­ли­цу 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) > 3 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] > 3:

        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] > 3 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] > 3 то

           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] > 3) m = m + Lose[t];

    cout << m;

    return 0;

}

 


48
Задание 10 № 1041

Известная авиа­ком­па­ния за­но­си­ла дан­ные о ко­ли­че­стве уте­рян­но­го ба­га­жа за год в таб­ли­цу 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;

}

 

Пояснение · ·

49
Задание 10 № 1061

В таб­ли­це 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;

}

 

Пояснение · ·

50
Задание 10 № 1081

В таб­ли­це 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;

}

 


51
Задание 10 № 1124

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m 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) = 7

m = 0

FOR k = 1 TO 10

IF Dat(k) < 8 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

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

m = 0

for k in range(10):

    if Dat[k] < 8:

        m = m + 1

print (m)

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

Var k, m: 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] := 7;

   m := 0;

   for k := 1 to 10 do

      if Dat[k] < 8 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

   алг

   нач

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

   цел k, m

   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] := 7

   m := 0

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

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

           m := m + 1

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int m = 0;

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

        if (Dat[k] < 8) m = m + 1;

    cout << m;

    return 0;

}

 

Пояснение · ·

52
Задание 10 № 1144

В таб­ли­це 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;

}

 

Пояснение · ·

53
Задание 10 № 1164

В таб­ли­це 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;

}

 

Пояснение · ·

54
Задание 10 № 1263

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

 

БейсикPython

DIM Dat(11) AS INTEGER

DIM k, m AS INTEGER

Dat(1) = 20: Dat(2) = 25

Dat(3) = 19: Dat(4) = 25

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

Dat(7) = 24: Dat(8) = 28

Dat(9) = 26: Dat(10) = 21

Dat(11) = 27

m = 0;

FOR k = 1 TO 11

IF Dat(k) < 25 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [20, 25, 19, 25, 26, 22, 24, 28, 26, 21, 27]

m = 0

for k in range(11):

    if Dat[k] < 25:

        m = m + 1

print (m)

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

Var k, m: integer;

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

Begin

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

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

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

   Dat[7] := 24; Dat[8] := 28;

   Dat[9] := 26; Dat[10] := 21;

   Dat[11] := 27;

   m := 0;

   for k := 1 to 11 do

      if Dat[k] < 25 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

   алг

   нач

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

   цел k, m

   Dat[1] := 20

   Dat[2] := 25

   Dat[3] := 19

   Dat[4] := 25

   Dat[5] := 26

   Dat[6] := 22

   Dat[7] := 24

   Dat[8] := 28

   Dat[9] := 26

   Dat[10] := 21

   Dat[11] := 27

   m := 0

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

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

           m := m + 1

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[11] = {20, 25, 19, 25, 26, 22, 24, 28, 26, 21, 27};

    int m = 0;

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

        if (Dat[k] < 25) {

            m = m + 1;

        }

    cout << m;

    return 0;

}

 

Пояснение · ·

55
Задание 10 № 4497

В таблице 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;

}

 


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


56
Задание 10 № 4516

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

 

БейсикPython

DIM Ball(10) AS INTEGER

DIM k,m AS INTEGER

Ball(1) = 42: Ball(2) = 25

Ball(3) = 13: Ball(4) = 18

Ball(5) = 15: Ball(6) = 55

Ball(7) = 48: Ball(8) = 13

Ball(9) = 64: Ball(10) = 45

m = Ball(1)

FOR k = 1 TO 10

IF Ball(k) < m THEN

m = Ball(k)

ENDIF

NEXT k

PRINT m

Ball = [42, 25, 13, 18, 15, 55, 48, 13, 64, 45]

m = Ball[0]

for k in range (10):

    if Ball[k] < m:

        m = Ball[k]

print (m)

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

Var k, m: integer;

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

Begin

   Ball[1]:=42;Ball[2]:=25;

   Ball[3]:=13;Ball[4]:=18;

   Ball[5]:=15;Ball[6]:=55;

   Ball[7]:=48;Ball[8]:=13;

   Ball[9]:=64;Ball[10]:=45;

   m := Ball[1];

   for k := 1 to 10 do

      if Ball[k] < m then

       begin

          m := Ball[k];

       end;

   writeln(m);

End.

  алг

нач

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

   цел k, m

   Ball[1] := 42

   Ball[2] := 25

   Ball[3] := 13

   Ball[4] := 18

   Ball[5] := 15

   Ball[6] := 55

   Ball[7] := 48

   Ball[8] := 13

   Ball[9] := 64

   Ball[10] := 45

   m := Ball[1]

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

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

           m := Ball[k]

       все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Ball[10] = {42, 25, 13, 18, 15, 55, 48, 13, 64, 45};

    int m = Ball[0];

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

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

    cout << m;

    return 0;

}

 


Аналоги к заданию № 4516: 4712 4846 4904 5639 Все

Пояснение · ·

57
Задание 10 № 4659

В таблице 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;

}

 


Аналоги к заданию № 4659: 4759 4788 4888 4948 5245 5290 5342 5861 6030 6489 Все


58
Задание 10 № 4662

В таблице 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) < 35 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] < 35:

        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] < 35 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] < 35 то

           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] < 35) m = m + 1;

    cout << m;

    return 0;

}

 


59
Задание 10 № 4747

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

 

БейсикPython

DIM Dat(7) AS INTEGER

DIM k, m AS INTEGER

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

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

Dat(5) = 0: Dat(6) = −1

Dat(7) = −4

m = 0

FOR k = 1 TO 7

IF Dat(k) < 0 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [−2, −1, 2, 4, 0, −1, −4]

m = 0

for k in range(7):

    if Dat[k] < 0:

        m = m + 1

print (m)

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

Var k, m: integer;

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

Begin

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

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

   Dat[5] := 0; Dat[6] := −1;

   Dat[7] := −4;

   m := 0;

   for k := 1 to 7 do

      if Dat[k] < 0 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

   алг

   нач

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

   цел k, m

   Dat[1] := −2

   Dat[2] := −1

   Dat[3] := 2

   Dat[4] := 4

   Dat[5] := 0

   Dat[6] := −1

   Dat[7] := −4

   m := 0

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

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

           m := m + 1

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[7] = {−2, −1, 2, 4, 0, −1, −4};

    int m = 0;

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

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

    cout << m;

    return 0;

}

 


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


60
Задание 10 № 4792

В таблице 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) = 5: 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 n

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

m = 10

n = 0

for k in range(0,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] := 5; 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(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] := 5

   Dat[8] := 8

   Dat[9] := 6

   Dat[10] := 9

   m := 10

   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, 5, 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 << n;

    return 0;

}

 


61
Задание 10 № 4840

В таблице 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;

}

 

Пояснение · ·

62
Задание 10 № 4949

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k, n, d AS INTEGER

Dat(1) = 140: Dat(2) = 130

Dat(3) = 135: Dat(4) = 150

Dat(5) = 120: Dat(6) = 150

Dat(7) = 110: Dat(8) = 140

Dat(9) = 150: Dat(10) = 135

d = Dat(1); n = 1

FOR k = 2 TO 10

IF Dat(k) >= d THEN

d = Dat(k)

n = k

ENDIF

NEXT k

PRINT n

Dat = [140, 130, 135, 150, 120, 150, 110, 140, 150, 135]

d = Dat[0]

n = 1

for k in range(1,10):

    if Dat[k] >= d:

        d = Dat[k]

        n = k + 1

print (n)

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

Var k, n, d: integer;

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

Begin

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

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

   Dat[5]:=120; Dat[6]:=150;

   Dat[7]:=110; Dat[8]:=140;

   Dat[9]:=150; Dat[10]:=135;

   d := Dat[1];

   n := 1;

   for k := 2 to 10 do

      if Dat[k] >= d then

       begin

          d := Dat[k];

          n := k;

       end;

   writeln(n);

End.

   алг

   нач

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

   цел k, n, d

   Dat[1] := 140

   Dat[2] := 130

   Dat[3] := 135

   Dat[4] := 150

   Dat[5] := 120

   Dat[6] := 150

   Dat[7] := 110

   Dat[8] := 140

   Dat[9] := 150

   Dat[10] := 135

   d := Dat[1]

   n := 1

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

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

           d := Dat[k]

           n := k

       все

   кц

   вывод n

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {140, 130, 135, 150, 120, 150, 110, 140, 150, 135};

    int d = Dat[0];

    int n = 1;

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

        if (Dat[k] >= d) {

            d = Dat[k];

            n = k + 1;

        }

    cout << n;

    return 0;

}

 


Аналоги к заданию № 4949: 5785 6373 Все


63
Задание 10 № 5049

В таблице 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) > m THEN

m = Dat(k)

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] > 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 := 0;

   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 := 0

   нц для 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 = 0;

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

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

    cout << m;

    return 0;

}

 


64
Задание 10 № 5056

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

 

БейсикPython

DIM A(6) AS INTEGER

DIM k, m, day AS INTEGER

A(1) = 3: A(2) = 1

A(3) = 4: A(4) = 2

A(5) = 4: A(6) = 2

day = 1: m = A(1)

FOR k = 2 TO 6

IF A(k) >= m THEN

m = A(k)

day = k

ENDIF

NEXT k

PRINT day

A = [3, 1, 4, 2, 4, 2]

day = 1

m = A[0]

for k in range (1, 6):

    if A[k] >= m:

        m = A[k]

        day = k + 1

print (day)

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

Var k, m, day: integer;

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

Begin

   A[1]:=3;A[2]:=1;

   A[3]:=4;A[4]:=2;

   A[5]:=4;A[6]:=2;

   day := 1;

   m := A[1];

   for k := 2 to 6 do

      if A[k] >= m then

       begin

          m := A[k];

          day := k;

       end;

   writeln(day);

End.

  алг

  нач

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

   цел k, m, day

   A[1] := 3

   A[2] := 1

   A[3] := 4

   A[4] := 2

   A[5] := 4

   A[6] := 2

   day := 1

   m := A[1]

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

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

           m := A[k]

           day := k

       все

   кц

   вывод day

кон

С++

#include <iostream>

using namespace std;

int main() {

    int A[6] = {3, 1, 4, 2, 4, 2};

    int day = 1;

    int m = A[0];

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

        if (A[k] >= m) {

            m = A[k];

            day = k + 1;

        }

    cout << day;

    return 0;

}

 


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


65
Задание 10 № 5126

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

 

БейсикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

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

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

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

Dat(7) = 0: Dat(8) = 2

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

m = 0

FOR k = 1 TO 10

IF Dat(k) > 3 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [2, 5, 7, 5, 4, 2, 0, 2, 4, 5]

m = 0

for k in range(10):

    if Dat[k] > 3:

        m = m + 1

print (m)

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

Var k, m: integer;

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

Begin

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

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

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

   Dat[7] := 0; Dat[8] := 2;

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

   m := 0;

   for k := 1 to 10 do

      if Dat[k] > 3 then

       begin

          m := m + 1;

       end;

   writeln(m);

End.

   алг

   нач

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

   цел k, m

   Dat[1] := 2

   Dat[2] := 5

   Dat[3] := 7

   Dat[4] := 5

   Dat[5] := 4

   Dat[6] := 2

   Dat[7] := 0

   Dat[8] := 2

   Dat[9] := 4

   Dat[10] := 5

   m := 0

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

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

           m := m + 1

       все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {2, 5, 7, 5, 4, 2, 0, 2, 4, 5};

    int m = 0;

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

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

    cout << m;

    return 0;

}

 


66
Задание 10 № 5225

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

 

БейсикPython

DIM A(9) AS INTEGER

DIM k, score AS INTEGER

A(1) = 9: 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 = [9, 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]:=9;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] := 9

   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] = {9, 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;

}

 


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


67
Задание 10 № 5548

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

 

БейсикPython

DIM Ball(10) AS INTEGER

DIM k, c AS INTEGER

Ball(1) = 4: Ball(2) = 5

Ball(3) = 3: Ball(4) = 4

Ball(5) = 2: Ball(6) = 5

Ball(7) = 4: Ball(8) = 3

Ball(9) = 4: Ball(10) = 5

c = 0

FOR k = 1 TO 10

IF Ball(k) > 4 THEN

c = c + 1

ENDIF

NEXT k

PRINT c

Ball = [4, 5, 3, 4, 2, 5, 4, 3, 4, 5]

c = 0

for k in range (10):

    if Ball[k] > 4:

        c = c + 1

print (c)

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

Var k, c: integer;

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

Begin

   Ball[1]:=4;Ball[2]:=5;

   Ball[3]:=3;Ball[4]:=4;

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

   Ball[7]:=4;Ball[8]:=3;

   Ball[9]:=4;Ball[10]:=5;

   c := 0;

   for k := 1 to 10 do

      if Ball[k] > 4 then

       begin

          c := c + 1;

       end;

   writeln(c);

End.

  алг

нач

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

   цел k, c

   Ball[1] := 4

   Ball[2] := 5

   Ball[3] := 3

   Ball[4] := 4

   Ball[5] := 2

   Ball[6] := 5

   Ball[7] := 4

   Ball[8] := 3

   Ball[9] := 4

   Ball[10] := 5

   c := 0

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

       если Ball[k] > 4 то

           c := c + 1

       все

   кц

   вывод c

кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int c = 0;

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

        if (Ball[k] > 4) c = c + 1;

    cout << c;

    return 0;

}

 


Аналоги к заданию № 5548: 5736 6451 Все


68
Задание 10 № 5964

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

 

БейсикPython

DIM Dat(7) AS INTEGER

DIM k, day AS INTEGER

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

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

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

Dat(7) = 11

day = 0

FOR k = 1 TO 7

IF Dat(k) <= 10 THEN

day = day + 1

ENDIF

NEXT k

PRINT day

Dat = [9, 11, 10, 13, 8, 5, 11]

day = 0

for k in range(7):

    if Dat[k] <= 10:

        day = day + 1

print (day)

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

Var k, day: integer;

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

Begin

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

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

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

   Dat[7] := 11;

   day := 0;

   for k := 1 to 7 do

      if Dat[k] <= 10 then

       begin

          day := day + 1;

       end;

   writeln(day);

End.

   алг

   нач

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

   цел k, day

   Dat[1] := 9

   Dat[2] := 11

   Dat[3] := 10

   Dat[4] := 13

   Dat[5] := 8

   Dat[6] := 5

   Dat[7] := 11

   day := 0

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

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

           day := day + 1

       все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int day = 0;

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

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

    cout << day;

    return 0;

}

 


Аналоги к заданию № 5964: 6115 6184 Все


69
Задание 10 № 6460

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

 

БейсикPython

DIM Dat(7) AS INTEGER

DIM k, m, day AS INTEGER

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

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

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

Dat(7) = 6

day = 1

m = Dat(1)

FOR k = 2 TO 7

IF Dat(k) < m THEN

day = k

m = Dat(k)

ENDIF

NEXT k

PRINT day

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

day = 1

m = Dat[0]

for k in range(1,7):

    if Dat[k] < m:

        day = k + 1

        m = Dat[k]

print (day)

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

Var k, m, day: integer;

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

Begin

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

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

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

   Dat[7] := 6;

   day := 1;

   m := Dat[1];

   for k := 2 to 7 do

      if Dat[k] < m then

       begin

          day := k;

          m := Dat[k];

       end;

   writeln(day);

End.

   алг

   нач

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

   цел k, m, day

   Dat[1] := 7

   Dat[2] := 9

   Dat[3] := 10

   Dat[4] := 8

   Dat[5] := 6

   Dat[6] := 7

   Dat[7] := 6

   day := 1

   m := Dat[1]

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

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

           day := k

           m := Dat[k]

       все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

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

    int day = 1;

    int m = Dat[0];

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

        if (Dat[k] < m) {

            day = k + 1;

            m = Dat[k];

        }

    cout << day;

    return 0;

}

 


Пройти тестирование по этим заданиям