1.     Напишите программу, 
которая  запрашивает температуру
воздуха в течение недели и запоминает введённые значения в массиве temper, затем вычисляет среднее значение температуры.

Var temper:array[1..7] of integer; i,S:integer; sa:real;Beginwriteln('Введите 7 значений температуры воздуха: ');S:=0;for i:=1 to 7 do beginreadln(m[i]);S:=S+m[i]; end;sa:=S/7;writeln(sa);readln;end.