1. Найти сумму элементов массива принадлежащих промежутку от C до D (C и D вводятся с клавиатуры). 2. Определить есть ли в данном массиве положительные элементы кратные k (k вводится с клавиатуры). Паскаль

var N, C, D, k, r, i, S: integer;

a: array [1 ... 65535] of integer;

begin

S:=0; {сумма эл-тов}

r:=0; {кол-во кратных k и положительных}

writeln ('Введите кол-во элементов массива '); readln (N); {вводим кол-во эл-тов массива}

writeln ('Введите k '); readln (k); {то, чему кратно}

for i:=1 to N do

readln (a[i]);

writeln ('Введите С '); readln (C); {промежуток начало}

writeln ('Введите D '); readln (D); {промежуток конец}

for i:=C to D do

S:=S+a[i]; {считаем сумму}

for i:=1 to N do

if (a[i]>0) and (a[i] mod k = 0) then r:=r+1;

if r > 0 then writeln ('В массиве есть положительные элементы кратные k');

writeln ('Сумма эл-тов массива в заданном диапазоне: ', S);

end.