В массиве хранится информация о среднедневной температуре ноября (в С°) 1. Опишите данный массив. 2. Заполните массив случайными целыми числами из отрезка [-3; 7]. 3. Выведите элементы данного массива в строчку через пробел. 4. Выведите даты дней, когда температура была выше нуля. 5. Подсчитайте количество дней с нулевой температурой. 6. Выведите самую низкую температуру месяца. 7. Найдите среднюю температуру ноября.

program zz1;

const n = 30; / /задаем количество элементов в массиве

var i, min, k, s:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (11) - 3;

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

if m[i]>0 then writeln (i,'-го ноября было выше нуля ');

for i:=1 to n do

if m[i]=0 then k:=k + 1;

writeln (' Количество дней с нулевой температурой = ', k);

min:=100;

for i:=1 to n do

if m[i]
writeln (' Самая низкая температура = ', min);

for i:=1 to n do

s:=s + m[i];

writeln (' Средняя температура = ', s/30);

end.