Дан массив из 10 целых чисел от -20 до 20. написать программу,определяющая каких элементов в нем больше : положительных или отрицательных. решить,паскаль

Program z10; var  a,b: array [1..10] of integer; i,q,k: integer; begin randomize; q: =0; k: =0; for i: =1 to 10 do begin a[i]: =random(40)-20; if(a[i]< 0)then q: =q+1; if(a[i]> 0)then k: =k+1; end; if(k> q)then writeln('положительных больше'); if(k< q)then writeln('отрицательных больше'); if(k=q)then writeln('положительных и отрицательных одинак.. кол-во'); end.

44

Объяснение:

s = - 1

нц для x от 10 до -3 шаг -2

Действия в цикле:

1) s = s - x

2) s = s + 1

Вывод s * x

x = 10       s = -1

Действия в цикле:

1) s = s - x  = -1 - 10 = -11

2) s = s + 1 = -11 + 1 = -10

x = 8       s = -10

Действия в цикле:

1) s = s - x  = -10 - 8 = -18

2) s = s + 1 = -18 + 1 = -17

x = 6       s = -17

Действия в цикле:

1) s = s - x  = -17 - 6 = -23

2) s = s + 1 = -23 + 1 = -22

x = 4       s = -22

Действия в цикле:

1) s = s - x  = -22 - 4 = -26

2) s = s + 1 = -26 + 1 = -25

x = 2       s = -25

Действия в цикле:

1) s = s - x  = -25 - 2 = -27

2) s = s + 1 = -27 + 1 = -26

x = 0       s = -26

Действия в цикле:

1) s = s - x  = -26 - 0 = -26

2) s = s + 1 = -26 + 1 = -25

x = -2       s = -25

Действия в цикле:

1) s = s - x  = -25 - (-2) = -25 + 2 = -23

2) s = s + 1 = -23 + 1 = -22

Цикл закончился

x = -2       s = -22

s * x = -2 * -22 = 44

Вывод 44