Массивы: определить, какое количество осадков выпало в виде дождя, а какое – в виде снега - PascalABC.NET

Формулировка задачи:

Добрый день!Нужна срочно ваша помощь, дорогие знатоки!Информация о количестве осадков, выпадавших в течение меся-ца, и температуре воздуха заданы в виде двух массивов (в месяце принять количество дней равным 30). Определить, какое количество осадков выпало в виде дождя, а какое – в виде снега (дождь, если температура воздуха >0 градусов). Подсчитать среднее количество осадков и среднюю температуру за месяц. Примечание:значения в массивах должны быть вещественного типа. Заполнение массивов допускается вводить вручную. Считать количество осадков как суммарное значение.

Решение задачи: «Массивы: определить, какое количество осадков выпало в виде дождя, а какое – в виде снега»

Листинг программы

Const d=30;
 
Var o,t:array [1..d] of real;
    i:integer;
    k_d,k_s,s_o,s_t:real;
 
Begin
 
 For i:=1 to d do //Ввод данных 
 begin
  write('Введите кол-во осадков в ',i,'-ый день: ');
  readln(o[i]);
  write('Введите среднюю температуру в ',i,'-ый день: ');
  readln(t[i]);  
 end;
 
 k_d:=0; //кол-во дождя
 k_s:=0; //кол-во снега
 s_o:=0; //сумма осадков
 s_t:=0; //сумма температур
 
 For i:=1 to d do 
 begin
  if t[i]>0 then k_d:=k_d+o[i] else k_s:=k_s+o[i]; 
  s_o:=s_o+o[i];
  s_t:=s_t+t[i];
 end;
 
 writeln('В виде дождя выпало ',k_d,'мм осадков');
 writeln('В виде снега выпало ',k_s,'мм осадков');
 writeln('Среднее кол-во осадков за месяц ',(s_o/d):6:2,'мм');
 writeln('Средняя температура за месяц ',(s_t/d):6:2,'t');
 
End.

Объяснение кода листинга программы

Объявляются массивы o и t размером d для хранения количества осадков и средней температуры в каждый из d дней соответственно.
Вводится переменная i типа integer для использования в цикле.
Объявляются переменные k_d, k_s, s_o и s_t для хранения количества осадков, выпавших в виде дождя, снега, и суммы осадков и температур соответственно.
Происходит ввод данных с помощью цикла for, в котором пользователю предлагается ввести количество осадков и среднюю температуру для каждого из d дней. Введенные значения сохраняются в соответствующих элементах массивов o и t.
После ввода всех данных, происходит подсчет количества осадков, выпавших в виде дождя и снега, а также суммы осадков и температур. Для этого используется второй цикл for, который перебирает элементы массивов o и t. Если средняя температура в день больше 0, к переменной k_d добавляется значение соответствующего элемента массива o, иначе к переменной k_s добавляется то же значение. Значения s_o и s_t увеличиваются на соответствующие значения элементов массивов o и t.
Выводятся результаты подсчета количества осадков, выпавших в виде дождя и снега, а также среднего количества осадков и температуры за месяц. Для вывода используется функция writeln, к которой присоединяется строка с результатом вычисления. Перед выводом результатов, к числам, представленным в виде строк, применяется функция :6:2 для форматирования числа с двумя знаками после запятой.