В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
юра416
юра416
20.06.2020 01:26 •  Информатика

Склавиатуры вводится температура 7 дней недели. распечатать в виде: один день недели-температура. найти среднюю температуру недели, среднюю положительную и среднюю отрицательную. использовать random от -3 до 3

Показать ответ
Ответ:
Даша83934
Даша83934
03.10.2020 22:15
Если вводить с клавиатуры, то для чего использовать random?
В программе ввод с клавиатуры отключен.
const n=7;
var t:array[1..n] of integer;
sr,srp,sro:real;
i,kp,ko:integer;
begin
Randomize;
for i:=1 to n do
 begin
 // readln(t[i]); // ввод с клавиатуры
 t[i]:=random(7)-3;
 writeln(i,' - ',t[i]:2);
 end;
sr:=0; srp:=0; sro:=0;
kp:=0; ko:=0;
for i:=1 to n do
 begin
 sr:=sr+t[i];
 if t[i]>0 then begin srp:=srp+t[i]; kp:=kp+1; end;
 if t[i]<0 then begin sro:=sro+t[i]; ko:=ko+1; end;
 end;
sr:=sr/n; srp:=srp/kp; sro:=sro/ko;writeln('Средняя температура недели = ',sr:5:2);
writeln('Средняя положительная = ',srp:5:2);
writeln('Средняя отрицательная = ',sro:5:2);
end.

Пример:
1 - -3
2 -  1
3 - -2
4 -  2
5 -  2
6 - -3
7 -  0

Средняя температура недели = -0.43
Средняя положительная =  1.67
Средняя отрицательная = -2.67
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота