Поняха74

20.03.2020 14:46 •  Информатика

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. ответ: