Найдите среднее арифметическое чисел, принадлежащих промежутку [A, B), и количество положительных чисел, стоящих на местах, кратных 4 паскаль

решить задачу в паскаль с помощью одномерного массива

Const nx=100;

var i, j, k, n, s, A, B:integer; M:array[1 ... nx] of integer; sr:real;

begin

writeln ('Введите начало и конец диапазона') ; Readln (A, B) ;

for k:=A to B-1 do begin

i: = i+1; M[i]: = k; s: = s + k; if ((i mod 4 = 0) and (M[i]>0)) then begin

write (m[i]:3) ; n: = n + 1; end; end; writeln;

for j:=1 to i do

write (m[j]:3) ; writeln; sr:=s/i;

writeln ('Среднее арифметическое чисел, принадлежащих промежутку [A, B) = ', sr:6:3) ;

writeln ('Количество положительных чисел, стоящих на местах, кратных 4 = ', n) ; end.