Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Среднее арифмитическое отрицательных чисел(Pascal)

3.3K
14 декабря 2006 года
Nethead
88 / / 24.11.2006
Вводятся числа пока не будет введен Ø, найдите среднее орифмитическое отрицательных чисел.
9.0K
14 декабря 2006 года
Oaxa
1 / / 06.10.2004
А чем, простите, среднее арифметическое отрицательных чисел отличается от среднего арифметического положительных (да и вообще, любых) чисел?
257
14 декабря 2006 года
kosfiz
1.6K / / 18.09.2005
Nethead
Код:
var a,sum:real;i:word;
begin
sum:=0;
i:=0;
readln(a);
while(a<>0) do
 begin
 if a<0 then begin sum:=sum+a; inc(i); end;
 readln(a);
 end;
writeln(sum/i:2:2);
readln;
end.
242
14 декабря 2006 года
Оlga
2.2K / / 04.02.2006
 
Код:
if i <> 0 then writeln(sum/i:2:2);
else ....
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог