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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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);