Вопрос по информатике:
Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра за декаду ноября хранятся в массиве.
Массив данных о силе ветра за декаду ноября зададим в виде целочисленных констант: 7,7,6,5,4,4,3,5,4,3.
Определить, сколько дней дул южный ветер с силой, не превышающей 4 м/с.
срочно нужно решить в паскаль.
- 15.09.2018 18:43
- Информатика
- remove_red_eye 18002
- thumb_up 18
Ответы и объяснения 1
Const n=10;
var
//северный-1, южный-2, восточный-3, западный-4
a:array[1..n] of integer=(1,2,4,3,2,1,2,4,4,1);
b:array[1..n] of integer=(7,7,6,5,4,4,3,5,4,3);
i,k:integer;
begin
k:=0;
for i:=1 to n do
if (a[i]=2)and(b[i]<=4) then k:=k+1;
writeln('k = ',k);
end.
Результат:
k = 2
- 16.09.2018 13:07
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.