Заполнить массив случайными числами из отрезка (А,В) — Pascal(Паскаль)

uses crt;

var
  a, b, i: integer;
  aa: array [1 .. 10] of integer;

begin
  clrscr;
  writeln('Введите отрезок [a,b]  (a и b через Enter)');
  read(a);
  read(b);
  FOR i := 1 TO 10 do
  begin
    aa[i] := round(a + Random(b - a));
  end;
  FOR i := 1 TO 10 do
  begin
    writeln(aa[i])
  end;

end.

Leave a Comment

5 + 1 =