ты делишь на кол-во, а надо на кол-во положительных элементов еблан

>>148805823
нихуя не понял, я не шарю анон

>>148805663 (OP)
Всегда интересовало: настоящее программирование хоть немного похоже на ту хуиту, что нам давали в школе или её чисто как прикладную математику преподают?

>>148806187
в цикле считай кол-во положительных элементов.
И потом дели сумму на кол-во.

>>148805663 (OP)
Во-первых, правильнее будет сперва считать массив, а потом уже найти среднее арифметическое, т.е. сперва отдельный цикл:

for i:=1 to c do
begin
writeln ('введите', i, 'элемент');
readln (a);
end

Потом то, как ты находишь среднее арифметическое. Если тебе нужно найти среднее арифметическое положительных чисел, то и делить нужно не на количество всех чисел в массиве (т.е. с), а только на количество положительных, которое ты будешь узнавать прямо в том же цикле:

k : integer;

...

k := 0;
for i:=1 to c do
if a>0 then
begin
s := s + a;
k := k + 1;
end;
writeln (s/k);

>>148806546
Анон, я нихуя в этом не шарю, можешь просто окончательный код написать?

Долбоебы одни в треде, держи.

var
c, i, s,kolvo: integer;
a: array[1..10] of integer;
begin
writeln ('введите');
readln(c);
s:=0;
for i:=1 to c do
begin
writeln ('введите', i, 'элемент');
readln (a); // fix
if a>0 then // fix too
s:=s+a; // fix
inc(kolvo); // колво положительных чисел
end;
writeln (s/kolvo);
readln;
end.

>>148806803
У тебя увеличение количества вне ифа, ты считаешь количество всех элементов, долбоёб. А ещё переменные называешь по-мудацки.

>>148806979
ну бля, да, переделывать надо.

>>148806803
анон, твой код и отрицательные числа учитывает

>>148806800
За щекой у тебя написал, тебе осталось только зеркало поставить перед собой.

>>148807202
>>148807163
Тут все работает нормально

>>148807264
анон, а как можно строчку inc чем-нибудь заменить? Мы как то по другому пишем, преподаватель заметит а-то

>>148807842
kolvo:=kolvo+1;