Вопрос по информатике:
Задача по информатике: Информация о температуре воздуха за месяц задана в виде массива. Определить сколько раз температура опускалась ниже 0 градусов.
Пожаловаться
- 13.12.2017 11:58
- Информатика
- remove_red_eye 1006
- thumb_up 35
Ответы и объяснения 1
Const
N = 30;
Var
T:array[1..N] of integer;
i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
Begin
T[i]:=random(20)-15;
Write(' ',T[i]);
if T[i] < 0 then k:=k+1;
End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.
Пример работы программы:
Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23
N = 30;
Var
T:array[1..N] of integer;
i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
Begin
T[i]:=random(20)-15;
Write(' ',T[i]);
if T[i] < 0 then k:=k+1;
End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.
Пример работы программы:
Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23
Пожаловаться
- 14.12.2017 21:51
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы