Question

50 с решением в таблице 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 if dat[k] < = 10 then day : = day + 1; writeln(day); end. 54d39c в таблице 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 if dat[k] > day then day : = dat[k]; writeln(day); end. c06aeb в таблице ani хранятся данные о численности обезьян в зоопарке города тулы (ani[1] – число обезьян в 2001 году, ani[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] : =17; m : = 0; for k : = 1 to 12 do if ani[k] = 17 then m : = m + ani[k]; writeln(m); end. cb4a04

Answer 1

1. Здесь в array 7 пунктов, цикл проверяет, если значение меньше или равно 10, и прибавляет к переменной, изначально равной нулю 1:

Dat[1] := 9; // прибавляем 1, итог 1

Dat[2] := 11; // ничего не делаем

Dat[3] := 10; // прибавляем 1, итог 2

Dat[4] := 13; // ничего не делаем

Dat[5] := 8; // прибавляем 1, итог 3

Dat[6] := 5; // прибавляем 1, итог 4

Dat[7] := 11; // ничего не делаем

ответ: 4

2. Здесь в array 7 пунктов, цикл проверяет, если значение пункта больше того, что сейчас в переменной со стартовым значением первого значения в array, т. е. 19 и записывает его в эту переменную (т. е. ищем наибольшее значение)

Dat[1] := 19;

Dat[2] := 21;

Dat[3] := 20;

Dat[4] := 23;

Dat[5] := 24;

Dat[6] := 25;  // это наибольшее, значит 25

Dat[7] := 23;

ответ: 25

3. Здесь в array 12 пунктов, мы проверяем, совпадает ли значение с 17, если да, то прибавляем его к нашей нулевой переменной m. Посчитаем кол-во значений 17 и умножим 17 на это значение, это будет ответ

Ani[1] := 17; // 1

Ani[2] := 17;  // 2

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; // 3

Ani[12] :=17; // 4

17 * 4 = 68

ответ: 68