Вычислить среднее арифметическое отрицательных элементов вектора q(21) p. s.через программу паскаль

Const n=21; var q: array[1..n] of integer; i,s,k: integer; begin randomize; for i: =1 to n do   begin   q[i]: =random(51)-10;   write(q[i]: 4);   end; writeln; k: =0; s: =0; for i: =1 to n do   if q[i]< 0 then begin s: =s+q[i]; k: =k+1; end; writeln('среднее арифметическое отрицательных элементов = ',s/k); end. пример:   16   -1   -7   5   13   11   -2 -10   36   19   3   34   23   29   12   28   9   39   33   16   -6 среднее арифметическое отрицательных элементов = -5.2

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.