02 Мар

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

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

  • 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.

  • 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.


  • Добавить комментарий

    Ваш e-mail не будет опубликован. Обязательные поля помечены *