ДАЮ 100 БАЛЛОВ тому,кто все решит

1. В таблице 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.
Ответ:

2. Школьница делала лабораторную работу по физике, в ходе которой измерила 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.
Ответ:

3. В таблице 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.
Ответ:

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] > 3 Then Begin
m := m + Lose[t];
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 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.
Ответ:

7. В таблице 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.
Ответ:

8. В таблице 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.
Ответ:

9. В таблице Аni хранятся данные о численности обезьян в зоопарке города Тулы (Ani[l] - число обезьян в 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.
Ответ:

2. По условию:m := 0;For k := 1 to 10 DoIf Tok[k] > 6 Then Beginm := m + 2;End;Нужно подсчитать сколько раз показания амперметра превысили отметку 6 и засчитать эту попытку за 2.Tok[ 1 ] := 10 > 6 (да) m :=2 Tok[ 2 ] := 14 > 6 (да) m :=4 Tok[ 3 ] := 15 > 6 (да) m :=6 Tok[ 4 ] := 4 > 6 (нет) m :=6 Tok[ 5 ] := 12 > 6 (да) m :=8 Tok[ 6 ] := 6 > 6 (нет) m :=8 Tok[ 7 ] := 3 > 6 (нет) m :=8 Tok[ 8 ] := 5 > 6 (нет) m :=8 Tok[ 9 ] := 5 > 6 (нет) m :=8 Tok[10] := 10 > 6 (да) m :=10

3. По условию:day := 0;for k := 1 to 7 doif Dat[k] = 0 thenday := k;Нужно последний день в неделе, когда не было осадков.Dat[1] := 14 = 0 (нет) day :=0 Dat[2] := 10 = 0 (нет) day :=0 Dat[3] := 0 = 0 (да) day :=3 Dat[4] := 15 = 0 (нет) day :=3 Dat[5] := 0 = 0 (да) day :=5 Dat[6] := 15 = 0 (нет) day :=5 Dat[7] := 10 = 0 (нет) day :=5

4. По условию:m := 0;For t := 1 to 10 DoIf Lose[t] > 3 Then Beginm := m + Lose[t];Нужно узнать в какие годы было утеряно больше 3 млн багажа за год и сосчитать, сколько же всего багажа было утеряно в эти урожайные годы.

Lose[ 1 ] := 1 > 3 (нет) m :=0 Lose[ 2 ] := 5 > 3 (да) m :=5 Lose[ 3 ] := 3 > 3 (нет) m :=5 Lose[ 4 ] := 6 > 3 (да) m :=11 Lose[ 5 ] := 7 > 3 (да) m :=18 Lose[ 6 ] := 12 > 3 (да) m :=30 Lose[ 7 ] := 1 > 3 (нет) m :=30 Lose[ 8 ] := 3 > 3 (нет) m :=30 Lose[ 9 ] := 3 > 3 (нет) m :=30 Lose[10] := 1 > 3 (нет) m :=30

5. По условию:day := 0;for k := 1 to 7 do beginif Dat[k] <= 10 thenday := day+1;Нужно узнать сколько дней температура была равна 10 или было холоднее.Dat[1] := 9 <= 10 (да) day :=1 Dat[2] := 11 <= 10 (нет) day :=1 Dat[3] := 10 <= 10 (да) day :=2 Dat[4] := 13 <= 10 (нет) day :=2 Dat[5] := 8 <= 10 (да) day :=3 Dat[6] := 5 <= 10 (да) day :=4 Dat[7] := 11 <= 10 (нет) day :=4

1. Ответ: 37

2. Ответ: 10

3. Ответ: 5

4. Ответ: 30

5. Ответ: 4

6. Ответ: 25

7. Ответ: 8

8. Ответ: 6

9. Ответ: 51