tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу , которая вычисляет
Написать программу , которая вычисляет среднюю температуру воздуха за всю неделю. выясните, сколько раз в неделю температура была выше нуля.
Olya555556
1 20.09.2019 08:30
0
Ответы
lyudsiya1337
08.10.2020 04:12
Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Missura2001
26.05.2020 14:53
Какую функцию нужно написать, чтобы получить любое целое число от 0 до 100? Запишите эту функцию с аргументом....
StacyZviozdohkina
27.05.2020 02:48
Валя шифрует русские слова (последовательности букв), записывая вместо каждой буквы её код: АДКНОС0110010110111000 Некоторые цепочки можно расшифровать не одним...
костя663
27.02.2019 00:30
.(Найти произведение и сумму чисел больших 100 и меньших 200 и кратных 5 на языке программирования pascal. следующими...
Lexakek111
27.02.2019 00:40
.(Работа светофора для водителей запрограммирована так: в начале каждого часа в течение трёх минут горит зелёный сигнал, затем, в течение одной минуты-жёлтый, в течение двух минут-красный,...
Anzelka13
27.02.2019 00:50
На ! составить программу вычисления значения функции y=(√3+√√3+√√√√√√√3)/n...
socnyjarbuz
27.02.2019 01:20
Отметьте и последовательно исоедините на координатной плоскости точки, координаты которых в двоичной системе счисления. для этого сначала заполните последний столбец таблицы. № точки...
nastosetrova1
27.02.2019 01:50
Как разделить 8 литров подсолнечного масла на две равные части по 4 литра ,если кроме полного 8 литрового бидона есть два пустых бидона на 5 литров и 3 литра...
14andrew
27.02.2019 02:20
Водном множестве 40 элементов, а в другом - 30.какое максимальное количество элементов может быть в их: а)пересечении; б)объединении?...
oleg1836
27.02.2019 02:20
10.составь характеристику обьекта. а)характеристика конфеты: б)характеристика компьютера;...
оксана150986
27.02.2019 02:40
Составить алгоритм с которого можна набрать 7 л воды пользуяст 8л и 5л банкой...
Популярные вопросы
Определи по таблице результатов соревнований по бегу номер номер спортсмена который...
2
Некоторую работу 15 рабочих выполняют за 12 дней . за сколько дней выполнят эту...
2
Мини- сочинение 5-7предложений на тему зима используя предложения с тире...
3
Сорок детей водили хоровод. из них 22 держали за руку мальчика и 30 держали за...
3
Любили тебя без особых причин за то, что ты внук, за то, что ты сын, за то, что...
2
Таблица характеристика героев сказки александра сергеевича пушкина сказка о царе...
1
Сумма двух дробей равна 1925 и из них вычте 10264+1724493: 7=сколько !...
1
Сделать рассказ про поход на пикник с родителями на языке...
2
Який масштаб більший “1: 1000000” чи “1: 25000000”?...
2
Решите уравнение используя алгоритм (а - 6502) + 23916 = 40146...
2
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.