22.03.2012, 00:44 | #1 (permalink) |
Member
Регистрация: 25.02.2012
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачи
1)Найти кол-во чисел; 2)найти кол-во положительных и отрицательных чисел; 3)найти кол-во 0; 4)Средние арифм. всех чисел; 5)Средние арифм. положительных и отрицательных; 6)максимальное и минимальное число; |
22.03.2012, 00:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Форум наполнен зачастую темами схожими друг с другом, вот темы похожие на вашу Помогите решить задачи на C++ Помогите решить задачи Помогите решить задачи |
22.03.2012, 12:21 | #3 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Код:
var c,k,k_p,k_o,max,min,kn:integer; sa,sa_p,sa_o:real; begin min:=1000; max:=-1000; k:=0; k_p:=0; k_o:=0; sa:=0; sa_p:=0; sa_o:=0; while c<>999 do begin write('Input '); readln (c); inc(k); sa:=sa+c; if c<0 then begin inc(k_o); sa_o:=sa_o+c; end else if c>0 then begin inc(k_p); sa_p:=sa_p+c; end else inc(kn); if c>max then max:=c; if c<min then min:=c; end; sa:=sa/k; sa_o:=sa_o/k_o; sa_p:=sa_p/k_p; writeln ('кол-во чисел=',k:3,'кол-во отрицательных=',k_o:3,'кол-во положительных=',k_p:3); writeln ('Средние арифм. всех чисел=',sa:3,'Средние арифм. положительных=',sa_p:3,'Средние арифм. отрицательных=',sa_o:3); writeln ('Максимальное число=',max); writeln ('Минимальное число=',min); readln end. |
22.03.2012, 12:53 | #4 (permalink) |
Member
Регистрация: 25.02.2012
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо огромное!)_
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|