Массивы
Тест в формате ОГЭ содержит задания по обработке массивов
Задание 1
В таблице Work хранятся данные о количестве заказов, принятых фирмой «Алоэ» с первого по 15 ноября. (Work[1] − число заказов, принятых 1 ноября, Work[2] − 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 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 m := m + 1; writeln(m); End.
Задание 2
В таблице Work хранятся данные о количестве заказов, принятых фирмой «Алоэ» с первого по 15 ноября. (Work[1] − число заказов, принятых 1 ноября, Work[2] − 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 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 m := m + 1; writeln(m); End.
Задание 3
В таблице Work хранятся данные о количестве заказов, принятых фирмой «Алоэ» с первого по 15 ноября. (Work[1] − число заказов, принятых 1 ноября, Work[2] − 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 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 m := m + Work[k]; writeln(m); End.
Задание 4
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 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]>14 then m := m + Dat[k]; writeln(m); End.
Задание 5
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := -1; Dat[4] := 0; Dat[5] := 3; Dat[6] := -2; Dat[7] := -3; Dat[8] := 0; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k]>=0 then m := m + 1; writeln(m); End.
Задание 6
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 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]>=14 then m := m + Dat[k]; writeln(m); End.
Задание 7
В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Полянка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 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 m := m + Tur[k]; writeln(m); End.
Задание 8
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := -1; Dat[4] := 0; Dat[5] := 3; Dat[6] := -2; Dat[7] := -3; Dat[8] := 0; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k]>0 then m := m + 1; writeln(m); End.
Задание 9
В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Полянка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 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 m := m + Tur[k]; writeln(m); End.
Задание 10
В таблице Work хранятся данные о количестве заказов, принятых фирмой «Алоэ» с первого по 15 ноября. (Work[1] − число заказов, принятых 1 ноября, Work[2] − 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. 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 m := m + Work[k]; writeln(m); End.