uses CRT; cоnst n = 15; var b: array [1..n] of Integer; s,p,k: Integer; begin clrscr; for k:=1 to n do readln(b[k]); s:=0; p:=0; for k:=1 to n do if b[k] < 0 then begin s:=s+b[k]; p:=p+1; end; writeln('Среднее арифм. равно: ', (s/p):9:4); readkey; end.
Answers & Comments
uses CRT;
cоnst n = 15;
var b: array [1..n] of Integer; s,p,k: Integer;
begin
clrscr;
for k:=1 to n do readln(b[k]);
s:=0;
p:=0;
for k:=1 to n do if b[k] < 0 then
begin
s:=s+b[k];
p:=p+1;
end;
writeln('Среднее арифм. равно: ', (s/p):9:4);
readkey;
end.