Задания 10. Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке
1.В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к]=15 то m : = m+1 все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 10
2.В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > m то m : = Dat[к] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 30
3.В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[k] < m то m : = Dat[k] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 50
4.В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > 12 то m : = m + 1 все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 70
5.В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > m то m : = Dat[к] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 90
6.В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] < m то m : = Dat[к] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 110
7.В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > 3 то m : = m+1 все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 130
8.В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > 25 то m : = m+1 все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 150
9.В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] < 35 то m : = m+1 все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 170
10.В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] < m то m : = Dat[к] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 190
11.В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > m то m : = Dat[к] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 210
12.В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] < 25 то m : = m+1 все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 230
13.В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] < m то m : = Dat[к] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 250
14.В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > m то m : = Dat[к] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 270
15.В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] < m то m : = Dat[к] n: = к все КЦ вывод n КОН | 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 | 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. |
Задание 10 № 290
16.В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:11] цел к, 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 нц для к от 1 до 11 если Dat[к] < 25 то m : = Dat[к] все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 310
17.В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:11] цел к, 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 нц для к от 1 до 11 если Dat[к] > 22 то m : = m+1 все КЦ вывод m КОН | 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 | 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. |
Задание 10 № 330
18.В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учёбы семестров (Dat[1] — оценка за первый семестр, Dat[2] — за второй и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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 term:=1 m := Dat[1] нц для к от 2 до 8 если Dat[к] < m то m:= Dat[k] term := k все КЦ вывод term КОН | 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 term:=1 m := Dat(1) FOR k := 2 TO 8 IF Dat(k) < m THEN m =Dat(k) term = k ENDIF NEXT k PRINT term END | Var k, m, term: integer; Dat: array[1...10] 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; term:=1 m := Dat[1]; for k := 2 to 8 do if Dat[k] < m then begin m:= Dat[k]; term := k; end; writeln(term); End. |
Задание 10 № 351
19.В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учёбы семестров (Dat[1] — оценка за первый семестр, Dat[2] — за второй и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:8] цел к, 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 term:=1; m := Dat[1] нц для к от 2 до 8 если Dat[к] > m то m:= Dat[k] term := k все КЦ вывод term КОН | DIM Dat(8) 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 term = 1: m = Dat(1) FOR k = 2 TO 8 IF Dat(k) > m THEN m = Dat(k) term = k END IF NEXT k PRINT term END | 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; term:=1; m := Dat[1]; for k := 2 to 8 do if Dat[k] > m then begin m:= Dat[k]; term := k; end; write(term); End. |
Задание 10 № 371
20.В таблице Dat хранятся данные о количестве краткосрочных командировок, в которые приходилось ездить сотруднику за последний год (Dat[1] — количество командировок в январе, Dat[2] — количество командировок в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:12] цел к, 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 month:=1; m := Dat[1] нц для к от 2 до 12 если Dat[к] <= m то m:= Dat[k]; month := k все КЦ вывод month КОН | DIM Dat(12) 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 month = 1: m = Dat(1) FOR k = 2 TO 12 IF Dat(k) <= m THEN m = Dat(k) month = k END IF NEXT k PRINT month END | 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; month: = 1; m := Dat[1]; for k := 2 to 12 do if Dat[k] <= m then begin m:= Dat[k]; month := k; end; write(month); End. |
Задание 10 № 391
21.В таблице Dat хранятся данные о количестве краткосрочных командировок, в которые приходилось ездить сотруднику за последний год (Dat[1] — количество командировок в январе, Dat[2] — количество командировок в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:12] цел к, m, term 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 month:=1; m := Dat[1] нц для к от 2 до 12 если Dat[к] >= m то m:= Dat[k] month := k все КЦ вывод month КОН | DIM Dat(12) 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 month = 1: m = Dat(1) FOR k = 2 TO 12 IF Dat(k) >= m THEN m = Dat(k) month = k END IF NEXT k PRINT month END | 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; month:=1; m := Dat[1]; for k := 2 to 12 do if Dat[k] >= m then begin m:= Dat[k]; month := k; end; write(month); End. |
Задание 10 № 411
22.В таблице Dat хранятся данные о количестве детских праздников, которые проводило кафе за последний год (Dat[1] — количество детских праздников в январе, Dat[2] — количество праздников в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:12] цел к, 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 month:=1; m := Dat[1] нц для к от 2 до 6 если Dat[к] > m то m:= Dat[k] month := k все КЦ вывод month КОН | DIM Dat(12) 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 month = 1: m = Dat(1) FOR k = 2 TO 6 IF Dat(k) > m THEN m = Dat(k) month = k END IF NEXT k PRINT month END | 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 month:=1; m := Dat[1]; for k := 2 to 6 do if Dat[k] > m then begin m:= Dat[k]; month := k; end; write(month); End. |
Задание 10 № 431
23.В таблице Dat хранятся данные о количестве детских праздников, которые проводило кафе за последний год (Dat[1] — количество детских праздников в январе, Dat[2] — количество праздников в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:12] цел к, 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 month:=1; m := Dat[1] нц для к от 8 до 12 если Dat[к] > m то m:= Dat[k] month := k все КЦ вывод month КОН | DIM Dat(12) 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 month = 1: m = Dat(1) FOR k = 8 TO 12 IF Dat(k) > m THEN m = Dat(k) month = k END IF NEXT k PRINT month END | 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 month:=1; m := Dat[1]; for k := 8 to 12 do if Dat[k] > m then begin m:= Dat[k]; month := k; end; write(month); End. |
Задание 10 № 451
24.В таблице Dat хранятся данные о количестве поездов, отправляющихся с центрального вокзала города на юг в первой декаде июля (Dat[1] — количество поездов первого числа, Dat[2] — количество поездов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] > m то m:= Dat[k] day := k все КЦ вывод day КОН | DIM Dat(10) 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 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) > m THEN m = Dat(k) day = k END IF NEXT k PRINT day END | 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; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] > m then begin m:= Dat[k]; day := k; end; write(day); End. |
Задание 10 № 471
25.В таблице Dat хранятся данные о количестве поездов, отправляющихся с центрального вокзала города на юг в первой декаде июля (Dat[1] — количество поездов первого числа, Dat[2] — количество поездов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] < m то m:= Dat[k] day := k все КЦ вывод day КОН | DIM Dat(10) 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 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) < m THEN m = Dat(k) day = k END IF NEXT k PRINT day END | 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; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] < m then begin m:= Dat[k]; day := k; end; write(day); End. |
Задание 10 № 491
26.В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[k] >= m то m:= Dat[k] day := k все КЦ вывод day КОН | DIM Dat(10) 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 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) >= m THEN m = Dat(k) day = k END IF NEXT k PRINT day END | 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; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] >= m then begin m:= Dat[k]; day := k; end; write(day); End. |
Задание 10 № 511
27.В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] =< m то m:= Dat[k] day := k все КЦ вывод day КОН | DIM Dat(10) 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 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) =< m THEN m = Dat(k) day = k END IF NEXT k PRINT day END | 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; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] =< m then begin m:= Dat[k]; day := k; end; write(day); End. |
Задание 10 № 531
28.В таблице Work хранятся данные о количестве заказов, принятых фирмой «Алоэ» с первого по 15 ноября. (Work[1] число заказов, принятых 1 ноября, Work[2] 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Work[1:15] цел к, 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 нц для к от 1 до 15 если Work[k] < 7 то m : = m+1 все КЦ вывод m КОН | 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 END IF NEXT k 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. |
Задание 10 № 551
29.В таблице Work хранятся данные о количестве заказов, принятых фирмой «Конфетти» с первого по 15 декабря. (Work[1] число заказов, принятых 1 декабря, Work[2] 2 декабря и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Work[1:15] цел к, 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 нц для к от 1 до 15 если Work[k] > 6 то m : = m+1 все КЦ вывод m КОН | 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 END IF NEXT k 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. |
Задание 10 № 571
30.В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Полянка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Tur [1:11] цел к, 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 нц для к от 1 до 11 если Tur[k] < 10 то m : = m+Tur[k] все КЦ вывод m КОН | 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) END IF NEXT 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. |
Задание 10 № 591
31.В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Полянка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Tur [1:111] цел 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 нц для к от 1 до 11 если Tur[k] > 12 то m : = m+Tur[k] все КЦ вывод m КОН | 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) END IF NEXT 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. |
Задание 10 № 611
32.В таблице Ani хранятся данные о численности обезьян в зоопарке города Тулы (Ani[1] — число обезьян в 2001 году, Ani[2] — в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 нц для к от 1 до 12 если Ani[k] = 17 то m : = m+Ani[k] все КЦ вывод m КОН | DIM Ani(11) 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) END IF NEXT 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. |
Задание 10 № 631
33.В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[1] — число россиян в 2001 году, Sea[2] — в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 нц для к от 1 до 12 если Sea[k] > 220 то s : = s+Sea[k] все КЦ вывод s КОН | DIS Sea(11) AS INTEGER DIS 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) END IF NEXT 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. |
Задание 10 № 651
34.В таблице Ves хранятся данные о весе в килограммах по группе учащихся спортивной школы (Ves[1] — вес первого учащегося, Ves[2] — вес второго учащегося и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках:
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 КОН | DIS Ves(14) AS INTEGER DIS 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) END IF NEXT 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. |
Задание 10 № 671
35.В таблице Ves хранятся данные о весе в килограммах по группе учащихся спортивной школы (Ves[1] — вес первого учащегося, Ves[2] — вес второго учащегося и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках:
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 нц для к от 1 до 14 если Ves[i] > 26 то n : = n + 1 все КЦ вывод n КОН | DIS Ves(14) AS INTEGER DIS 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 END IF NEXT 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 := 0; For i := 1 to 14 Do If Ves[i] > 26 Then Begin n : = n + 1; End; Writeln(n); End. |
Задание 10 № 691
36.В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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 | 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. |
Задание 10 № 711
37.Школьник делал лабораторную работу по физике, в ходе которой измерил 10 раз силу тока и записал показания амперметра в таблицу Tok (Tok[1] — результат первого измерения, Tok[2] — второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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 END IF NEXT k 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. |
Задание 10 № 754
38.Школьник делал лабораторную работу по физике, в ходе которой измерил 10 раз силу тока и записал показания амперметра в таблицу Tok (Tok[1] — результат первого измерения, Tok[2] — второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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 END IF NEXT k 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. |
Задание 10 № 774
39.Владелец крупного яблоневого сада в течение 12 лет записывал в таблицу App количество собранного урожая. (App[1] — количество тонн яблок, собранных за первый год, App[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг алг нач целтаб 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 кон | 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 END IF NEXT k 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. |
Задание 10 № 806
40.Владелец крупного яблоневого сада в течение 12 лет записывал в таблицу App количество собранного урожая. (App[1] — количество тонн яблок, собранных за первый год, App[2] — за второй и т. д.). Определите, какое
число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг алг нач целтаб 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 кон | 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 END IF NEXT k 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. |
Задание 10 № 826
41.В таблице Dat хранятся отметки учащихся 9 класса за самостоятельную работу (Dat[1] — отметка первого учащегося, Dat[2] — второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.