Advertisement
Guest User

Untitled

a guest
Nov 17th, 2019
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. program one;
  2. var
  3. a,b,i:integer;
  4. h:array[1..10] of integer;
  5. begin
  6. readln(a,b);//вводим интервал
  7. for i:=1 to 10 do
  8. if ((a<=h[i]) and (h[i]<=b)) then
  9. h[i]:=0;
  10. //h[10]:=0;
  11. for i:=1 to 10 do
  12. writeln(h[i]);
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement