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. В таблице 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.
Ответ: 
3. В таблице 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.
Ответ: 
4. Известная авиакомпания заносила данные о количестве утерянного багажа за год в таблицу 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.
Ответ: 
5. В таблице А хранятся данные о количестве призеров олимпиады по программированию по 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.
Ответ: 
6. В таблице 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.
Ответ: 
7. В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом "Полянка". (Tur[l] - число ребят в 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.
Ответ: 
8. В таблице Work хранятся данные о количестве заказов, принятых фирмой "Алоэ" с первого по 15 ноября. (Work[l] - число заказов, принятых 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.
Ответ: 
9. В таблице Work хранятся данные о количестве заказов, принятых фирмой "Cказка" с первого по 15 ноября. (Work[l] - число заказов, принятых 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.
Ответ: 
10. В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[l] - число россиян в 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.
Ответ: