В одномерном массиве хранится информация о температуре воздуха за июнь месяц. Определить самую жаркую декаду м - PascalABC.NET

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

В одномерном массиве хранится информация о температуре воздуха за июнь месяц. Определить самую жаркую декаду месяца. Примечание: массив температур заполнить целыми случайными числами от +15 до +30. Предусмотреть варианты: 1.Первая декада самая жаркая 2.Вторая декада самая жаркая 3.Третья декада самая жаркая 4.Первая и вторая декады одинаково жаркие 5.Первая и третья декады одинаково жаркие 6.Вторая и третья декады одинаково жаркие 7.Все декады одинаково жаркие Прошу помочь. Так как сам не понимаю как сделать. Надо сделать в Паскале!

Решение задачи: «В одномерном массиве хранится информация о температуре воздуха за июнь месяц. Определить самую жаркую декаду м»

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

Var
a:array[1..30] of integer;
s,s2,s3:real;
i:integer;
begin
s:=0;
s2:=0;
s3:=0;
for i:= 1 to 30 do begin
a[i]:=random (15,30);
end;
for i:=1 to 10 do begin
s:=s+a[i];
end;
s:=s/10;
 
 for i:=11 to 20 do begin
  s2:=s2+a[i];
  end;
   s2:=s2/10;
 
  for i:=21 to 30 do begin
    s3:=s3+a[i];
end;
s3:=s3/10;
 
if (s>s2) and (s>s3) then
writeln('Первая декада самая жаркая');
if (s2>s) and (s2>s3) then
writeln('Вторая декада самая жаркая');
if (s3>s2) and (s3>s) then
writeln('Третья декада самая жаркая');
 
if s=s2 then
writeln('Первая и вторая декады одинаково жаркие');
if s2=s3 then
writeln('Вторая и третья декады одинаково жаркие');
if s=s3 then
writeln('Первая и третья декады одинаково жаркие');
if ((s) = (s2)) and ((s2) = (s3)) then
writeln('Все декады одинаково жаркие');
end.

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

В данном коде выполняется следующая последовательность действий:

Создается одномерный массив a размером 30, в котором будут храниться данные о температуре воздуха за июнь месяц.
Задаются начальные значения переменных s, s2, s3 равные нулю.
В первой части цикла, которая выполняется от i=1 до i=10, происходит суммирование первых 10 элементов массива a, результат сохраняется в переменной s.
Значение переменной s делится на 10 для получения средней температуры.
Во второй части цикла, которая выполняется от i=11 до i=20, происходит суммирование следующих 10 элементов массива a, результат сохраняется в переменной s2.
Значение переменной s2 делится на 10 для получения средней температуры.
В третьей части цикла, которая выполняется от i=21 до i=30, происходит суммирование последних 10 элементов массива a, результат сохраняется в переменной s3.
Значение переменной s3 делится на 10 для получения средней температуры.
Выполняется проверка: если средняя температура первой декады (s) больше, чем средняя температура второй и третьей декад (s2 и s3), то выводится сообщение Первая декада самая жаркая.
Если условие не выполняется, то выполняется проверка: если средняя температура второй декады (s2) больше, чем средняя температура первой и третьей декад (s и s3), то выводится сообщение Вторая декада самая жаркая.
Если и это условие не выполняется, то выполняется проверка: если средняя температура третьей декады (s3) больше, чем средняя температура первой и второй декад (s и s2), то выводится сообщение Третья декада самая жаркая.
Если все три декады имеют одинаковую среднюю температуру, то выводится сообщение Первая и вторая декады одинаково жаркие.
Если вторая и третья декады имеют одинаковую среднюю температуру, то выводится сообщение Вторая и третья декады одинаково жаркие.
Если первая и третья декады имеют одинаковую среднюю температуру, то выводится сообщение Первая и третья декады одинаково жаркие.
Если все три декады имеют одинаковую среднюю температуру, то выводится сообщение Все декады одинаково жаркие.