Линейный массив Решение задач презентация

Линейный массив Решение задач

Задание 1 В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] – данные за первый день, Dat[2] – за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Задание 1 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 m:= m+1; writeln(m); End.

Задание 2 В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] – данные за первый день, Dat[2] – за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Задание 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] > m then m:= Dat[k] writeln(m); End.

Задание 3 В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] – данные за первый день, Dat[2] – за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Задание 3 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 m:= m + 1 writeln(m); End.

Задание 4 В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] – данные за первый день, Dat[2] – за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Задание 4 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.

Задание 5 В таблице Dat хранятся данные измерений среднесуточной температуры за 11 дней в градусах (Dat[1] – данные за первый день, Dat[2] – за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Задание 5 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 m:= Dat[k]; writeln(m); End.

Задание 6 В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Полянка». (Tur[1] – число ребят в 2001 году, Tur[2] – в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Задание 6 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.

Задание 7 В таблице Ani хранятся данные о численности обезьян в зоопарке города Тулы (Ani[1] – число обезьян в 2001 году, Ani[2] – в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Задание 7 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 m:= m + Ani[k]; Writeln(m); End.

Задание 8 Владелец крупного яблоневого сада в течение 12 лет записывал в таблицу App количество собранного урожая. (App[1] – количество тонн яблок, собранных за первый год, App[2] – за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Задание 8 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 m:= m + 1; m: = m + 10; Writeln(m); End.