СЦ Сергей Цибульский Вычислить среднеарефметических положительных элементов массива (х10) стоящих на четных местах. Решение на Паскали
ИК Иришка Круглова i := 1; while (i 0) then begin inc( s, a[ i ] ); inc(c); end; end; if (c > 0) then s := s/c;