Для трёх заданных чисел a, b, c найти среднее арифметическое положительных из них. Если таковых нет, сделать об этом сообщение.

Question

Информатика

Володюха

25 июня, 23:22

Для трёх заданных чисел a, b, c найти среднее арифметическое положительных из них. Если таковых нет, сделать об этом сообщение.

+3

Ответы (2)

Знаете ответ?

Евген · Answer 1

uses crt;

var a, b, c, cc, s:integer;

begin

cc:=0;

readln (a) ;

if a>0 then begin s:=a; inc (cc) ; end;

readln (b) ;

if b>0 then begin s:=s+b; inc (cc) ; end;

readln (c) ;

if c>0 then begin s:=s+c; inc (cc) ; end;

writeln (s/cc) ;

readln;

end.

Пава · Answer 2

var a, b, c, s, k:integer;

begin

readln (a, b, c) ;

if a>0 then

begin

k:=k+1;

s:=s+a;

end;

if b>0 then

begin

k:=k+1;

s:=s+b;

end;

if c>0 then

begin

k:=k+1;

s:=s+c;

end;

if k=0 then writeln ('нет положительных чисел')

else writeln (s/k) ;

end.