Чайник - модуль 4

Модуль 4. Массивы

Массив - очень удобный инструмент в программировании.
Одномерный массив - это фиксированное количество элементов одного типа, объединенных одним именем. Каждый элемент имеет свой номер- индекс. Обращение к элементам массива осуществляется с помощью указания имени массива и номера элементов.
Пусть для решения требуется массив из 30 целых чисел. Тогда объявить массив можно следующим образом:
Var  mas: array [1..30] of  integer;
mas - имя массива, [1..30] - количество элементов

В следующем примере задается случайным образом из интервала -5;+5 массив из 10 чисел, элементы массива выводятся на экран, определяется сумма элементов массива 
Program mass;
Var  a: array [1..10] of  integer;
i,s: integer;
Begin 
   RANDOMIZE;
   For i:=1 to 10 do begin
      a[i]:=Random(10)-5;
      WriteLn(i,'элемент массива= ',a[i]  );
      end;
      s:=0;
  for i:=1 to 10 do
      s:=s+a[i];
     writeln ('Сумма= ',s);
end.

прочитать стр.39-42
Z4.1
Объявить массив из 30 элементов – температура за июль 2013 года
Задать с помощью генератора случайных чисел температуру в диапазоне +15;+30
Осуществить вывод на экран значений температуры в виде:
День июля            температура
       1                        20                      и т.д. до 30
Найти
1. среднюю температуру июля. Ответ оформить в виде: Средняя температура июля 2013 года - …

2. Определить количество дней, когда температура была больше 25
3. найти день, когда температура максимальная
4. Найти дни, когда температура меньше 18. Ответ вывести в виде: Дни в июле, когда температура меньше 18 …..
Все сделать в одной программе, массив задавать один раз!