a (5; -3 .4 .0 .-1)определить результат выполнения программы:s:=0fori:=1to 5doit (a [i] <0)thens:= s+1:Пожалуйста посчитайте пожалуйста!Кому не трудно или может уже кто-то проходил такое!

s = 0
i = 1; a[i]<0 ⇒ a[1]<0 ⇒ 5<0 ⇒ false
i = 2; a[i]<0 ⇒ a[2]<0 ⇒ -3<0 ⇒ true; s = s+1 = 0+1 = 1
i = 3; a[i]<0 ⇒ a[3]<0 ⇒ 4<0 ⇒ false
i = 4; a[i]<0 ⇒ a[4]<0 ⇒ 0<0 ⇒ false
i = 5; a[i]<0 ⇒ a[5]<0 ⇒ -1<0 ⇒ true; s = s+1 = 1+1 = 2
: s=2