fork download
copy 
  1. program pr6;
  2. var 
  3. x,s:real;
  4. n,k,i:integer;
  5. mas:array [1..9] of real;
  6.  
  7. begin
  8. n:=9;
  9. s:=0;k:=0;
  10. for i:=1 to n do
  11.  begin
  12.  x:=exp(ln(0.3)*i)+ln(i);
  13.  mas[i]:=x;
  14.   if mas[i]<0 then
  15.    begin
  16.    s:=s+mas[i];
  17.    k:=k+1;
  18.   end;
  19. end;
  20. if k<>0 then 
  21. begin
  22.   writeln('amount is ',s:5:2);
  23.  writeln('quantity is ',k);
  24.  writeln('result is(s/k)',s/k);
  25. readln;
  26. end;
  27. if k=0 then
  28.  writeln('there is no negative result');
  29. readln;
  30. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
there is no negative result
https://ideone.com/Otufj
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!