помогите дам 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
________________________________________
Ответы
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