Question

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

Answer 1

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.