Pascal ABC Вычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).
Answers & Comments
alexdjk3
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);
Answers & Comments
2. for i := 1 to size do if (a[ i ] < v) or (b <= v) then inc(c);