Question

Заполнить массив A(21) случайными числами в диапазоне от -1 до 17. Выведите его на экран. Pascal abc 9 класс

Answer 1

Const 
n=21; 
var a:array[1..n] of real; 
i:integer; 
begin 
randomize; 
for i:=1 to n do begin 
a[i]:=random(18)+-1; 
write(a[i],' '); 
end; 
end.

Answer 2

Для заполнения массива A(21) случайными числами в диапазоне от -1 до 17 в языке Pascal, можно использовать следующий код:

program RandomArray;

var
  A: array[1..21] of Integer;
  i: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

// Заполнение массива случайными числами
  for i := 1 to 21 do
    A[i] := Random(19) - 1;

// Вывод массива на экран
  for i := 1 to 21 do
    Write(A[i], ' ');

Readln;
end.

В этом коде мы используем функцию `Randomize`, чтобы инициализировать генератор случайных чисел. Затем мы используем цикл `for` для заполнения массива A случайными числами в диапазоне от -1 до 17. Функция `Random(19)` генерирует случайное число от 0 до 18, а вычитание 1 дает нам случайное число от -1 до 17.

После заполнения массива мы используем еще один цикл `for`, чтобы вывести его содержимое на экран. Функция `Write` выводит элементы массива через пробел.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, пожалуйста, дайте знать.