Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Массивы в Паскале

Массивы в Паскале - вопрос №489818

  • Введите в компьюютер программу Temperature? ддобавьте к ней обработку массива Dt
боробошка
09.12.12
Учеба и наука / Информатика
1 ответ

Лучший ответ по мнению автора

Валентина

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.12.12
Лучший ответ по мнению автора

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее