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

Question

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

Answer 1

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.

Answer 2

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.