Advertisement
Guest User

Untitled

a guest
Nov 20th, 2019
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. program fddffd;
  2. const n = 5;
  3. var i,min,max:integer;
  4. a:array[1..n] of integer;
  5. begin
  6.  
  7. min := 32767;
  8. max := -32768;
  9.  
  10. for i:=1 to n do
  11. a[i] := random(1337 mod 323);
  12.  
  13. for i:=1 to n do
  14. begin
  15. if a[i] > max then max := a[i]
  16. end;
  17.  
  18. for i:=1 to n do
  19. begin
  20. if a[i] < min then min := a[i]
  21. end;
  22.  
  23. for i:=1 to n do
  24. begin
  25. if a[i] mod 2 = 0 then
  26. writeln(a[i],' четный');
  27. end;
  28.  
  29. writeln('min = ' , min, ' ', 'max = ', max);
  30. writeln('sum = ', max+min);
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement