(см. объяснение)
Объяснение:
Решение задачи на PascalABC.NET:
##
var a: sequence of integer := ReadArrInteger(ReadInteger).Where(x->x>0);
if(a.Count = 0) then print('NO')
else print(a.Sum/a.Count);
Решение задачи на PascalABC:
var a, N, i, sum, k: integer;
begin
sum:= 0;
k:= 0;
readln(N);
for i:= 1 to N do
begin
read(a);
if(a>0) then
begin
k:= k+1;
sum:= sum+a;
end;
end;
if(k=0) then writeln('NO')
else writeln(sum/k);
end.
Рекомендованное решение приведено первым, однако, как мне кажется, второе вам будет понятнее.
Задание выполнено!
1) таблицы;
диаграммы;
рисунки (графические объекты);
фильмы и звуки;
колонтитулы;
гиперссылки;
управляющие
2) в 1984г
3)Presenter
4)Звук — физическое явление, представляющее собой распространение в виде упругих волн механических колебаний в твёрдой, жидкой или газообразной среде. В узком смысле под звуком имеют в виду эти колебания, рассматриваемые в связи с тем, как они воспринимаются органами чувств животных.
5Шум — беспорядочные колебания различной физической природы, отличающиеся сложностью временной и спектральной структуры. Первоначально слово шум относилось исключительно к звуковым колебаниям, однако в современной науке оно было распространено и на другие виды колебаний.
6)На вкладке Главная в группе Буфер обмена щелкните стрелку под кнопкой Вставить и выберите команду Специальная вставка. В списке Как выберите вариант Презентация Microsoft PowerPoint (объект) или Слайд Microsoft PowerPoint (объект).