помогите плз с задачей на массивы

[sp.caster]

В одномерном массиве хранится температура за Январь, найти среднее значение температуры за месяц, кол-во дней когда температура была выше среднего, максимальное и минимальное значение температуры и числа когда была максимальная температура, а когда минимальная! зарание спасибо!

[Stilet]

И в чем трудности?
В цикле проходи.

[1..2,1..2 :)]

Прости не очень люблю массивы делать где они не нужны а пока вот:


var
i,d_min,t_min,d_max,temp,t_max:inte ger;
sum:real;
begin
sum:=0;
read(temp);
d_min:=1;
t_min:=temp;
d_max:=1;
t_max:=temp;
for i:=1 to 30 do
begin
if i=30
then readln(temp)
else read(temp);
sum:=sum+temp;
if t_min>temp
then begin
t_min:=temp;
d_min:=i;
end;
if t_max<temp
then begin
t_max:=temp;
d_max:=i;
end;
end;
sum:=sum/31;
write('srednee=',sum:1:0);
writeln(' maximal temp i den- ',t_max,' ',d_max,' minim temp i den- ',t_min,' ',d_min);
readln
end.

[sp.caster]

Сообщение от Stilet

И в чем трудности?
В цикле проходи.

да вся трудность в том, что я массивы эти еще плохо знаю и понимаю.

[sp.caster]

Сообщение от 1..2,1..2 :)

Прости не очень люблю массивы делать где они не нужны а пока вот:

Спасибо конечно и на этом, но желательно через массивы.

[Викдон]

держи:

var Mas:array[1..31] of integer; {Массив t каждого дня января}
    i,max,min,chislo_min,chislo_max:integer;
    Tsred:real; {Средняя t}
    day:integer; {day кол-во с t выше среднего}

begin
 writeln('Введите t за Январь:');
  for i:=1 to 31 do
   begin
    write(i,' Число');
    readln(mas[i]);
    Tsred:=Tsred+mas[i];
   end;
   Tsred:=Tsred/31;


  day:=0;
  for i:=1 to 31 do   {Считаем дни с t выше среднего}
   if mas[i]>Tsred then
    day:=day+1;

  {Ищем день с min t}
  min:=mas[1];
  chislo_min:=1;
  for i:=1 to 31 do
   if mas[i]<min then
    begin
      min:=Mas[i];
      chislo_min:=i;  {Запоминаем число с min t}
    end;

  {Ищем день с max t}
  max:=mas[1];
  chislo_max:=1;
   for i:=1 to 31 do
    if mas[i]>max then
     begin
      max:=mas[i];
      chislo_max:=i; {Запоминаем число с max t}
     end;

writeln('Средняя t за месяц: ',Tsred:3:1);
writeln('Кол-во дне с t выше среднего: ',day);
writeln('Максимальная t за месяц была: ',chislo_max,' числа и  = ',max,' Градусов(с)');
writeln('Минимальная t за месяц была: ',chislo_min,' числа и  = ',min,' Градусов(с)');


readln;
end.

[sp.caster]

Сообщение от Викдон

держи:

Спасибо большое за решение и попутное объяснение!