Advertisement
DaGa286

Untitled

Feb 17th, 2020
284
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.18 KB | None | 0 0
  1. var i,sr,a,b: integer;
  2. N:array[1..10] of integer;
  3. begin
  4. readln(a,b);
  5. for i:=1 to 10 do
  6. begin
  7. N[i]:=random(a,b);
  8. sr:=sr+N[i];
  9. write(N[i],' ');
  10. end;
  11. writeln();
  12. write(sr/10);
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement