Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Найдите среднее арифметическое чисел, принадлежащих промежутку [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.