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

var N, C, D, k, r, i, S: integer;a: array [1..65535] of integer;beginS:=0; {сумма эл-тов}r:=0; {кол-во кратных k и положительных}writeln (\'Введите кол-во элементов массива \'); readln(N); {вводим кол-во эл-тов массива}writeln (\'Введите k \'); readln(k); {то, чему кратно}for i:=1 to N doreadln(a[i]);writeln (\'Введите С \'); readln(C); {промежуток начало}writeln (\'Введите D \'); readln(D); {промежуток конец}for i:=C to D doS:=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.