fork download
copy 
  1. var
  2.   i, j: integer;
  3.   A: array[1..20] of integer;
  4. begin
  5. fillChar(A, sizeof(A), #0);
  6. j := 1;
  7. for i:=1 to 7 do begin
  8. j:=i+1; A[j]:=i end;
  9. writeln('1) ', A[7]);
  10.  
  11.  
  12. fillChar(A, sizeof(A), #0);
  13. j := 1;
  14. for i:=1 to 7 do begin
  15. j:=j+1; A[i]:=j end;
  16. writeln('2) ', A[5]);
  17.  
  18.  
  19. fillChar(A, sizeof(A), #0);
  20. i:=1; for j:=1 to 9 do
  21. begin i:=j-i; A[j]:=i+j end;
  22. writeln('3) ', A[4]);
  23.  
  24.  
  25. fillChar(A, sizeof(A), #0);
  26. i:=1; for j:=1 to 9 do
  27. begin i:=j-i; A[j]:=i+j end;
  28. writeln('4) ', A[3]);
  29.  
  30.  
  31. fillChar(A, sizeof(A), #0);
  32. i:=0; for j:=1 to 9 do
  33. begin i:=j-i; A[j]:=i+j end;
  34. writeln('5) ', A[3]);
  35.  
  36.  
  37. fillChar(A, sizeof(A), #0);
  38. j := 1;
  39. for i:=1 to 7 do begin
  40. j:=i+1; A[j]:=i end;
  41. writeln('6) ', A[3]);
  42.  
  43. end.
  44.  
Success #stdin #stdout 0.01s 4112KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1) 6
2) 6
3) 7
4) 4
5) 5
6) 2
https://ideone.com/3K4fZ
language:
Pascal (gpc 20070904)
created:
11 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!