Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.