B10 - Обработка массивов

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

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.

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

var Ves: array[1..14] of integer;
    i, n: 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 begin
    if Ves[i] < n then
      n := Ves[i];
  end;
  writeln(n);
end.

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

var Ves: array[1..14] of integer;
    i, n: 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 begin
    if Ves[i] > 26 then
      n := n + 1
  end; 
  writeln(n);
end.

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

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] := 9;
  m := 0;
  for k := 1 to 10 do
    if Dat[k] >8 then begin
      m := m + Dat[k]
    end;
  writeln(m)
End.

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

var Dat: array[1..7] of integer;
    k, day: integer;
begin
  Dat[1] := 9; Dat[2] := 11;
  Dat[3] := 10; Dat[4] := 13;
  Dat[5] := 8; Dat[6] := 5;
  Dat[7] := 11;
  day := 0;
  for k := 1 to 7 do begin
    if Dat[k] <= 10 then
      day := day+1;
  end;
  writeln(day);
end.

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

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.

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

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] < 25 then begin
      m := m + 1
    end;
  writeln(m)
End.

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

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.

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

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.

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

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.

11. В таблице 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 := 20;
  for k := 1 to 10 do
    if Dat[k]<m then begin
      m := Dat[k]
    end;
  writeln(m);
End.

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

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.

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

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.

14. В таблице А хранятся данные о количестве призеров олимпиады по программированию по 9-ти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма.

var k, score: integer;
    A: array[1..9] of integer;
begin
  A[1] := 9 ; 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.

15. В таблице А хранятся данные о количестве призеров олимпиады по программированию по 9-ти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма.

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.

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

var Dat: array[1..7] of integer;
    k, day: integer;
begin
  Dat[1] := 9; Dat[2] := 11;
  Dat[3] := 10; Dat[4] := 13;
  Dat[5] := 8; Dat[6] := 5;
  Dat[7] := 11;
  day := 0;
  for k := 1 to 7 do begin
    if Dat[k] <= 10 then
      day := day+1;
  end;
  writeln(day);
end.

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

var Dat: array[1..7] of integer;
    k, day: integer;
begin
  Dat[1] := 19; Dat[2] := 21;
  Dat[3] := 20; Dat[4] := 23;
  Dat[5] := 24; Dat[6] := 25;
  Dat[7] := 23;
  day := Dat[1];
  for k := 1 to 7 do begin
    if Dat[k] > day then
      day := Dat[k]
  end;
  writeln(day);
end.

18. В таблице 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] < 10 Then Begin
      m := m + Tur[k];
    End;
  Writeln(m);
End.

19. В таблице 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	Begin	
      m := m + Tur[k];
    End;		
  Writeln(m) ;	
End.

20. В таблице 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 Begin			
      m := m + 1;		
    End;					
  Writeln(m) ;			
End.

21. В таблице Work хранятся данные о количестве заказов, принятых фирмой "Cказка" с первого по 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] := 1;		
  m := 0;				
  For k:=1 to 15 Do	
    If Work[k] > 6 Then	Begin			
	m := m + 1;	
    End;				
  Writeln(m);			
End.

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

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]:=11;
  m := 0;			
  For k:=1 to	12 Do	
    If Ani[k] = 17 Then	Begin		
      m := m + Ani[k];	
    End;		
  Writeln (m) ;		
End.

23. В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[1] - число россиян в 2001 году, Sea[2] - в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

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.