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

const n=10;var //северный-1, южный-2, восточный-3, западный-4a: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;begink:=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