Question

В многострочном текстовом поле содержится значения средней температуры воздуха каждого дня недели (Числа вводятся с клавиатуры). Определите среднюю температуру воздуха за всю неделю. Выясните, сколько раз в неделю температура была выше нуля.Программа на паскале.

Answer 1

Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then 
inc(k);//сколько раз в неделю температура была выше нуля
end;
s:=s/7;//средняя температура.
end.

Answer 2

Для решения данной задачи на Паскале можно использовать массивы и циклы. Вам потребуется создать массив, в котором будут храниться значения средней температуры воздуха каждого дня недели. Затем вычислить среднюю температуру за всю неделю и подсчитать количество раз, когда температура была выше нуля.

Вот пример кода на Паскале, который решает данную задачу:

program AverageTemperature;
const
  DaysOfWeek = 7;
var
  Temperature: array[1..DaysOfWeek] of Real;
  i: Integer;
  SumTemperature, AverageTemperature: Real;
  CountAboveZero: Integer;
begin
  SumTemperature := 0;
  CountAboveZero := 0;

// Ввод значений температуры с клавиатуры
  for i := 1 to DaysOfWeek do
  begin
    WriteLn('Введите среднюю температуру воздуха для дня ', i, ' недели:');
    ReadLn(Temperature[i]);
    SumTemperature := SumTemperature + Temperature[i];

// Подсчет количества раз, когда температура была выше нуля
    if Temperature[i] > 0 then
      CountAboveZero := CountAboveZero + 1;
  end;

// Вычисление средней температуры за всю неделю
  AverageTemperature := SumTemperature / DaysOfWeek;

// Вывод результатов
  WriteLn('Средняя температура воздуха за неделю: ', AverageTemperature:0:2);
  WriteLn('Количество раз, когда температура была выше нуля: ', CountAboveZero);
end.

В этом коде мы используем массив `Temperature`, чтобы хранить значения средней температуры воздуха каждого дня недели. Затем мы используем цикл `for` для ввода значений температуры с клавиатуры и подсчета суммы температур и количества раз, когда температура была выше нуля. После этого мы вычисляем среднюю температуру за всю неделю и выводим результаты на экран.

Примечание: Пожалуйста, обратите внимание, что код на Паскале может отличаться в зависимости от используемой версии компилятора и среды разработки. Убедитесь, что ваша среда разработки правильно настроена для работы с Паскалем и что вы используете совместимую версию компилятора.