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

var a,b,c,s,k: integer; beginreadln(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; begincc: =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.

program fantscrin;

    const n =20;

    var i,s: integer;

        a: array [1..n] of integer;

begin

    for i: =1 to n do

        a[i]: =random(5);  

    for i: =1 to n do

        write(a[i], '   ');

    writeln('');

    s: =0;

    for i: =1 to n do

        if(a[i]=0) then s: =s+1;

    writeln(s);

end.