Учеба и наука

• Всего ответов: 1


Валентина
3-й в
411 отзыв
program temp;
var dt:array[1..12] of integer;
i:integer;
srz,srv,srl,sro:real;
begin
   writeln('vvedite massiv temperatur');
for i:=1 to 12 do  
readln(dt[i]);
srz:=0; srv:=0; srl:=0; sro:=0; 
for i:=1 to 12 do
  case i of
    1,2,12: srz:=srz+dt[i];
    3..5:  srv:=srv+dt[i]; 
     6..8:  srl:=srl+dt[i]; 
    9..11:  sro:=sro+dt[i]; 
end;
writeln('srednee po zime=',srz:8:2); 
writeln('srednee po vesne=',srv:8:2);  
writeln('srednee po letu=',srl:8:2);  
writeln('srednee po oseni=',srz:8:2);
readln;
end. 
Буду благодарна, если отметите 
декабрь 10, 2012 г.
Ответ понравился автору
Лучший ответ по мнению автора

Похожие вопросы