Имеется массив целых чисел размером N (задается константой). Заполнить его случайными...

Question

Имеется массив целых чисел размером N (задается константой). Заполнить его случайными целыми числами в заданном диапазоне (вводится с клавиатуры). Вывести его на экран.

Answer 1

//Pascal
const N = 10;
var
  A: array [1..10] of integer;
  i: byte;
  Min, Max: integer;
begin
randomize;
  write('Введите диапазон случайных чисел: ');
  readln(Min, Max);
  for i := 1 to 10 do
  begin
    A[i] := random(Max-Min+1)+Min;
    write(A[i]:4);
  end;
end.