Advertisement
Guest User

Untitled

a guest
Apr 27th, 2017
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. program ex;
  2. const
  3. m = 100000000;
  4. var
  5. i,min,max,n:Integer;
  6. a,b,c,d,f,h,e,s: array[1..m] of Longint;
  7.  
  8. begin
  9. writeln('10 элементов массива');
  10. randomize;
  11. for i := 1 to m do
  12. begin
  13. a[i]:=random(10);
  14. b[i]:=a[i];
  15. c[i]:=a[i];
  16. d[i]:=a[i];
  17. // f[i]:=a[i];
  18. // write(a[i],'|');
  19. end;
  20. // writeln();writeln();
  21. // n:=1;
  22. // write('Четное:');
  23. // for i := 1 to m do
  24. // begin
  25. // if a[i] mod 2 = 0
  26. // then
  27. // begin
  28.  
  29. // chet[n]:=a[i];
  30. // n:=n+1;
  31.  
  32. // write(a[i],'|')
  33. // end;
  34. // end;
  35. writeln('финиш');
  36. readln();
  37. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement