Паскаль.

Пфф... Ну ок

 

можно еще короче написать:
я пропущу var и const
begin
sum:=0;
for i:=1 to 10 do
sum:=sum+a;
writeln (sum/10);
end.

То что выше было сказано не в обиду, я ничего против школьников (адекватных) не имею, просто высказал свое мнение (за 6 лет кодинга на паскале уже имею кое-какой опыт).

 

Можешь дать скайп? я б обратился с помощью, если не трудно?

 

лол, я тупанул, надо было после цикла =(

 

Что-то не то.
У него программа считает сумму чисел больших 0 из ряда 10, 12, 0, 15, -5, 4, -15, 3, 0, 11 и затем делит ее на количество этих чисел больших 0.
А твоя посчитает сумму всех чисел ряда и разделит ее на 10.

 

Сор, не заметил, думал ему нужно посчитать среднее значение, тогда так:
begin
sum:=0;
for i:=1 to 10 do
if a>0
then begin
sum:=sum+a;
inc(k);
end;
writeln (sum/k);
end.

 

otnhans11 - пиши, помогу с программой любой сложности.

 

Ну в принципе, у него почти тоже самое =D

Я бы тоже не отказался от помощи