Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра

Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра за декаду ноября хранятся в массиве.
Массив данных о силе ветра за декаду ноября зададим в виде целочисленных констант: 7,7,6,5,4,4,3,5,4,3.
Найти, сколько дней дул южный ветер с силой, не превышающей 4 м/с.
срочно необходимо решить в паскаль.

Задать свой вопрос
Катя Ляженко
Двумерный массив нужен?
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]lt;=4) then k:=k+1;
writeln('k = ',k);
end.

Итог:
k = 2
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт