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

aminka0095 aminka0095    1   21.05.2019 20:50    0

Ответы
aslan2002761 aslan2002761  01.10.2020 05:10

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.

ПОКАЗАТЬ ОТВЕТЫ
ученик1890 ученик1890  01.10.2020 05:10

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика