9 июля, 09:19

В массивах Td B Tn хранятся результаты измерения дневной и ночной температуры за 7 дней. Определить среднесуточную температуру за неделю

+3
Ответы (1)
  1. 9 июля, 09:26
    0
    Var Td, Tn:array[1 ... 7]of real; i, k:integer; m, z:real;

    begin

    for i:=1 to 7 do

    begin

    writeln ('Введите дневневную температуру в день', i);

    readln (Td[i]);

    m:=m+Td[i];

    end;

    for k:=1 to 7 do

    begin

    writeln ('Введите ночную температуру в день', k);

    readln (Tn[i]);

    m:=m+Tn[i];

    end;

    z:=m/14;

    writeln ('средняя температура=', z);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «В массивах Td B Tn хранятся результаты измерения дневной и ночной температуры за 7 дней. Определить среднесуточную температуру за неделю ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы