fork download
copy 
  1. var
  2. 	ar: array [1..10] of integer;
  3. 	k, a, y: integer;
  4. 	p, n: string;
  5.  
  6. function IntToStr(i: integer): string;
  7. var t: string;
  8. begin
  9. 	str(i,t);
  10. 	IntToStr := t;
  11. end;
  12.  
  13. begin
  14. 	randomize;
  15. 	for y := 1 to 10 do
  16. 	begin
  17. 		ar[y] := random(40) - 20;
  18. 		write(ar[y], ' ');
  19. 	end;
  20. 	p := ''; n := '';
  21. 	for y := 1 to 10 do
  22. 		if ar[y] >= 0 then
  23. 		begin
  24. 			p := p + IntToStr(ar[y]) + ' ';
  25. 			ar[y] := 1;
  26. 		end
  27. 		else
  28. 		begin
  29. 			n := n + IntToStr(ar[y]) + ' ';
  30. 			ar[y] := 0;
  31. 		end;
  32.  
  33. 	k := 0;
  34. 	for y := 1 to 10 do
  35. 		k := k + ar[y];
  36.  
  37. 	writeln;
  38. 	if k > 5 then 
  39. 		writeln('ПОЗИТИВЧИИИИИИИИИИК ^))))))))))))))))))))))))))))))))))))')
  40. 	else
  41. 		if k = 5 then 
  42. 			writeln('ПОХУЙ @ ПОХУЙ')
  43. 		else
  44. 			writeln('ЗАЩООООООООООО');
  45. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
19 -2 3 -14 10 12 7 12 12 -3 
ПОЗИТИВЧИИИИИИИИИИК ^))))))))))))))))))))))))))))))))))))
https://ideone.com/SAPJXu
language:
Pascal (fpc 3.0.4)
created:
8 years ago
visibility:
secret

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!