Вопрос по информатике:
Заполнить массив данными о температуре воздуха в течении недели.
1) Вычислить сред. температуру воздуха.
2) Вывести, когда температура была ниже средней и посчитать их количества.
3) Сформировать массив отклонений, температуру от среднего значения.
(ПАСКААЛЬ!)
HELP ME PLEASE!
Заранее, благодарю! ;)
*информатика(ИКТ)*
- 24.02.2018 19:35
- Информатика
- remove_red_eye 14934
- thumb_up 20
Ответы и объяснения 1
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]
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.
- 25.02.2018 22:44
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.