подскажите что не так.
Задача:
Program my1;
const n=10;
var B :array [1..7] of real;
sred,sum:real;c,i:integer;
Procedure sor(i:integer);
begin
B[1]:=13.54;
B[2]:=-5.98;
B[3]:=-7.05;
B[4]:=45.7;
B[5]:=0.51;
B[6]:=4.78;
B[7]:=-0.54;
for i:=1 to 7 do begin
if (abs(B[i]) inc (c);
sred:=sum/c;
end;
end;
begin
sor(B[i]);
writeln('cреднее арифметическое таких чисел=',sred);
end.
Задание:

а можно ли было решить, если бы я ввел массив в процедуру?

Да

спасибо

спасибо, но при подсчете среднего арифметического больших чисел надо было вывести все числа

мне кажется первое было проще, чем мое

Program my1;const B :array [1..7] of real = (13.54, -5.98, -7.05, 45.7, 0.51, 4.78, -0.54);var n, sr: real; i: integer;Procedure sor(n:real; var sred:real);var i, k:integer;beginfor i:=1 to 7 doif (abs(B[i])<n) and (abs(B[i])<10) thenbeginsred:=sred+B[i];k:=k+1;end;sred:=sred/k;end;beginwrite('Введите заданное число: ');readln(n);sor(n, sr);writeln('Среднее арифметическое таких чисел: ', sr);for i:=1 to 7 doif B[i]>sr then writeln(B[i]);end.

Program my1;const n=10;var B :array [1..7] of real;sred,sum:real;c,i:integer;beginc:=7;sum:=0;B[1]:=13.54;B[2]:=-5.98;B[3]:=-7.05;B[4]:=45.7;B[5]:=0.51;B[6]:=4.78;B[7]:=-0.54;for i:=1 to 7 do beginif (abs (B[i])<10) then Dec(c) elsesum:=sum+B[i];end;sred:=sum/c;writeln('cреднее арифметическое таких чисел=',sred);write('Больше cреднего арифметического: ');for i:=1 to 7 do beginif (abs(B[i])>sred) thenwrite(B[i],'; ');end;end.