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

const N=12; var a: array[1… N] of integer; c, d, k, count, sum, i: integer; begin writeln ('Введите промежуток: '); readln (c, d); writeln ('Введите k: '); readln (k); for i: =1 to N do begin a[i]: =random (30); write (a[i], '); if (a[i] > 0) and (a[i] mod k=0) then inc (count); end; for i: =c to d do begin sum: =sum+a[i]; end; writeln; writeln ('Сумма элементов на промежутке [', c,'; ', d,']: ', sum); if (count <> 0) then writeln ('Положительных элементов кратных ', k, ': ', count); end.