Найти среднее арифметическое положительных элементов массива

[FineMary]

Найти среднее арифметическое положительных элементов массива x[12]
Program zadanie01;
Var
x:array [1..12] of integer;
i,k:integer;
S:real;
begin
for i:=1 to 12 do
readln (x[12]);
k:=0;
S:=0;
for i:=1 to 12 do
if x>0 then
S:=(S+x/?

[tig81]

Вопрос в чем?

[FineMary]

как найти среднее арифметическое?
S:=(S+x)/ на кол-во положительных элементов в массиве...а как их найти?

[Selyd]

quote author=FineMary link=topic=12431.msg80948#msg80948 date=1323881181]
Найти среднее арифметическое положительных элементов массива x[12]
Program zadanie01;
Var
x:array [1..12] of integer;
i,k:integer;
S:real;
begin
for i:=1 to 12 do
readln (x);
k:=0;
S:=0;
for i:=1 to 12 do
if x>0 then
begin
S:=S+x(i);
k:=k+1;
end;
S:=S/12
print
end;
[/quote]

[wital1984]

У вас проблемы с массивом: если уж объявили x как массив (x:array [1..12] of integer;) то обращаться к элементам его нужно x [ i ], а никак не x(i) или просто x
А вообще среднее арифметическое k-чисел это их сумма деленная на k, а не на 12.

[Selyd]

Так оно карёжит при посылке. Пришлось ставить х(і).
С надеждой, что адресат поймёт.