| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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. |
13. Задание 10 № 250. В таблице 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. |
14. Задание 10 № 270. В таблице 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. |
15. Задание 10 № 290. В таблице 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. |
16. Задание 10 № 310. В таблице 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. |
17. Задание 10 № 330. В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, 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(10) 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...10] 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. |
18. Задание 10 № 351. ∧В таблице 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. |
19. Задание 10 № 371. В таблице 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. |
20. Задание 10 № 391. В таблице 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. |
21. Задание 10 № 411. В таблице 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. |
22. Задание 10 № 431. В таблице 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 все КЦ вывод term КОН | 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. |
23. Задание 10 № 451. В таблице 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. |
24. Задание 10 № 471. В таблице 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. |
25. Задание 10 № 491. В таблице 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. |
26. Задание 10 № 511. В таблице 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. |
27. Задание 10 № 531. В таблице 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. |
28. Задание 10 № 551. В таблице 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. |
29. Задание 10 № 571. В таблице 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. |
30. Задание 10 № 591. В таблице 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. |
31. Задание 10 № 611. В таблице 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. |
32. Задание 10 № 631. В таблице 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. |
33. Задание 10 № 651. В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[1] — число россиян в 2001 году, Sea[2] — в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования: