ДАЮ 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. Ответ: