Pascal ABCВычислить сумму квадратов отрицательных чисел, стоящих ** местах, кратных 3;...

Question

Pascal ABC
Вычислить сумму квадратов отрицательных чисел,
стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).

Answer 1

1. for i := 1 to size do if (i  mod 3 = 0) and (a[ i ] < 0) then s := s + sqr( a[ i ] );
2. for i := 1 to size do if (a[ i ] < v) or (b <= v) then inc(c);