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.
Runtime error #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 


			

					
			
			

				
	
		
		
	
		
		 stdout
					

				
				 copy
			

			
	

		
Runtime error 207 at $0804B2B2
  $0804B2B2
  $08048113
  $0805EFC1



	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/6TWsP
					
					
					
					
					

												

												
						
						

					

					
					
					

						
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!