Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Заполнить массив данными о температуре воздуха в течении недели.
1) Вычислить сред. температуру воздуха.
2) Вывести, когда температура была ниже средней и посчитать их количества.
3) Сформировать массив отклонений, температуру от среднего значения.
(ПАСКААЛЬ!)
HELP ME PLEASE!
Заранее, благодарю! ;)
*информатика(ИКТ)*

Ответ оставил Гость

Const n=7;
Day:array[1..7] of string[15] = (Понедельник,Вторник,Среда,Четверг,Пятница,Суббота,Воскресенье);
var
 T:array[1..7] of integer;
 D: array[1..7] of real;
 i,k:byte;
 s:integer;
 SR:real;
begin
 S:=0;
 randomize;
 Writeln(Температура в течение недели:);
 for i:=1 to n do
  begin
   T[i]:=random(50)-25;
   S:=S+T[i];
   write(T[i]:4);
  end;
 writeln;
SR:=S/n;
writeln(Средняя температура: ,SR:3:2);
k:=0;
Writeln(Температуры ниже средней в дни : );
for i:=1 to n do
 if T[i]  begin
     write(Day[i]:15);
     k:=k+1;
  end;
writeln;
writeln(Всего ,K, дня(ей));
writeln(Массив отклонений:);
for i:=1 to n do
 begin
  D[i]:=T[i]-SR;
  write(d[i]:8:3);
 end;
end.