Advertisement
Guest User

Untitled

a guest
Dec 16th, 2017
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 KB | None | 0 0
  1. Program pelmen;
  2.  
  3. begin
  4. var k,super,i,j,smth:integer;
  5. var a:array [1..8] of integer;
  6. var b:array [1..8] of integer;
  7. super:=1;
  8. for i:=1 to 8 do
  9. begin
  10. read(a[i]);
  11. b[i]:=0;
  12. end;
  13. read(k);
  14. for i:=1 to 4 do begin
  15. if a[2*i]>k  then begin b[super]:=1; super:=super+1; end;
  16. end;
  17. for i:=1 to 8 do
  18. begin
  19. write(b[i],' ');
  20. end;
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement