СДАМ ГИА: РЕШУ ОГЭ
Образовательный портал для подготовки к экзаменам
Информатика
информатика
сайты - меню - вход - новости


Каталог заданий
Задания Д9. Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке
Версия для печати и копирования в MS Word
1
Задания Д9 № 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;

}

 


Ответ:

2
Задания Д9 № 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;

}

 


Ответ:

3
Задания Д9 № 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;

}

 


Ответ:

4
Задания Д9 № 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;

}

 


Ответ:

5
Задания Д9 № 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;

}

 


Ответ:

6
Задания Д9 № 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;

}

 


Ответ:

7
Задания Д9 № 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;

}

 


Ответ:

8
Задания Д9 № 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;

}

 


Ответ:

9
Задания Д9 № 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;

}

 


Ответ:

10
Задания Д9 № 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;

}

 


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