Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
В массиве А (n) найти: а) среднее значение элементов массива б) количество положительных элементов Код в delphi
[Best]
(49),
на голосовании
7 лет назад
Голосование за лучший ответ
Imobilazer
(222455)
7 лет назад
sum:=0;
pol:=0;
for i:=1 to n do
begin
sum:=sum+A[i];
if A[i] > 0 then begin inc(count);
end;
sr:=sum/n;
pol:=0;
for i:=1 to n do
begin
sum:=sum+A[i];
if A[i] > 0 then begin inc(count);
end;
sr:=sum/n;
Похожие вопросы