| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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. |
34. Задание 10 № 671. В таблице 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] нц для к от 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. |
35. Задание 10 № 691. В таблице 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. |
36. Задание 10 № 711. В таблице 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. |
37. Задание 10 № 754. Школьник делал лабораторную работу по физике, в ходе которой измерил 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. |
38. Задание 10 № 774. Школьник делал лабораторную работу по физике, в ходе которой измерил 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. |
39. Задание 10 № 806. Владелец крупного яблоневого сада в течение 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. |
40. Задание 10 № 826. Владелец крупного яблоневого сада в течение 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. |
41. Задание 10 № 848. В таблице Dat хранятся отметки учащихся 9 класса за самостоятельную работу (Dat[1] — отметка первого учащегося, Dat[2] — второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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 END IF NEXT k PRINT m END | 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. |
42. Задание 10 № 868. В таблице Dat хранятся отметки учащихся 9 класса за самостоятельную работу (Dat[1] – отметка первого учащегося, Dat[2] – второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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) END IF NEXT k PRINT m END | 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. |
43. Задание 10 № 889. Сотрудник метеобюро в ходе измерений среднесуточной температуры записывал показания термометра в таблицу Tem (Tem[1] — температура, полученная в результате первого измерения, Tem[2] — второго и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Tem[1:12] цел k, b b:= 15 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 нц для k от 1 до 12 если Tem[k] < 20 то b:= b + 1 все кц вывод b кон | DIM Tem(12) AS INTEGER DIM k,b AS INTEGER b = 15 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 FOR k = 1 TO 12 IF Tem(k) < 20 THEN b = b + 1 END IF NEXT k PRINT b | Var k, b: integer; Tem: array[1..12] of integer; Begin b:= 15; 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; For k:= 1 to 12 Do If Tem[k] < 20 Then b:= b + 1; Writeln(b); End. |
44. Задание 10 № 909. Сотрудник метеобюро в ходе измерений среднесуточной температуры записывал показания термометра в таблицу Tem (Tem[1] — температура, полученная в результате первого измерения, Tem[2] — второго и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Tem[1:12] цел k, b b:= 0 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 нц для k от 1 до 12 если Tem[k] < 19 то b:= b + Tem[k] все кц вывод b кон | DIM Tem(12) AS INTEGER DIM k,b AS INTEGER b = 0 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 FOR k = 1 TO 12 IF Tem(k) < 19 THEN b = b + Tem[k] END IF NEXT k PRINT b | Var k, b: integer; Tem: array[1..12] of integer; Begin b:= 0; 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; For k:= 1 to 12 Do If Tem[k] < 19 Then b:= b + Tem[k]; Writeln(b); End. |
45. Задание 10 № 929. Садовник, работая в оранжерее ботанического сада, записывал в таблицу Flow количество видов растений, цветущих в текущем месяце. (Flow[1] — количество цветущих растений в январе, Flow[2] – в феврале и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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 END IF NEXT k 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. |
46. Задание 10 № 949. Садовник, работая в оранжерее ботанического сада, записывал в таблицу Flow количество видов растений, цветущих в текущем месяце. (Flow[1] — количество цветущих растений в январе, Flow[2] – в феврале и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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 END IF NEXT k 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. |
47. Задание 10 № 1021. Известная авиакомпания заносила данные о количестве утерянного багажа за год в таблицу Lose. Всего были занесены данные за последние 10 лет работы компании (Lose[1] — количество утерянного багажа за первый год работы, Lose[2] — за второй год и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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) END IF NEXT k 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. |
48. Задание 10 № 1041. Известная авиакомпания заносила данные о количестве утерянного багажа за год в таблицу Lose. Всего были занесены данные за последние 10 лет работы компании (Lose[1] — количество утерянного багажа за первый год работы, Lose[2] — за второй год и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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) END IF NEXT k 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. |
49. Задание 10 № 1061. В таблице A хранятся данные о количестве призёров олимпиады по программированию по девяти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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) END IF NEXT k PRINT score END | 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 begin if A[k] >= 9 then score:= score+A[k]; end; write(score); end. |
50. Задание 10 № 1081. В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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 END IF 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]:= 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. |
51. Задание 10 № 1104. Школьница делала лабораторную работу по физике, в ходе которой измерила 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. |
52. Задание 10 № 1124. В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | 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 END IF NEXT k 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. |
53. Задание 10 № 1144. В таблице Dat хранятся данные ежедневных измерений количества осадков за неделю в миллиметрах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб 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 кон | DIM Dat(7) AS INTEGER 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 IF Dat(k) = 0 THEN day=k ENDIF NEXT k PRINT day END | 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 day:= k; write(day); end. |
54. Задание 10 № 1164. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.