O
OlgaN
ЗадаН массив целого типа А[1.99]. Оформить в виде функции вычисление среднего арифметического тех элементов матрицы, значения которых больше Х и меньше Y. Вывод среднего выполнить во внешнем блоке.
Как я понил вопрос, числа задаются в промежутке от 1 до 99. Если я некорректно понял вопрос напишите. Среднее арифмитическое считается с округлением.
Program SredArifm;
VAR
A:array[1..100] of integer;
i,N,res,x,y:integer;
function SredArifm(x,y:integer):integer;
var
j,s:integer;
begin
s:=1;
for i:=x to y do
s:=s+A;
res:=S div 2;
end;
BEGIN
readln(N); ///кол-во чисел в массиве 1..99,1..200
for i:=1 to n do ///формирование массива
begin
A[1]:=1;
A[i+1]:=A+1;
end;
for i:=1 to n do
write(A,' ');
readln(x,y);
SredArifm(x,y);
writeln(res);
END.
function SredArifm(x,y:integer):integer;
var
j,s:integer;
begin
s:=1;
for i:=x to y do
s:=s+A[i];
res:=S div 2;
end;
function SredArifm(x,y:integer):integer;
var s:integer;
begin
s:=0;
for i:=x to y do s:=s+A[i];
SredArifm:=S div (y-x);
end;
for i:=1 to n do ///формирование массива
begin
A[1]:=1;
A[i+1]:=A[i]+1;
end;
A[1]:=1;
for i:=1 to n-1 do ///формирование массива
begin
A[i+1]:=A[i]+1;
end;
for i:=1 to n do ///формирование массива
begin
A[i]:=i;
end;
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab