Question

Напишите программу(Паскаль) заполнения массива A [1..20] произвольными числами в диапазоне [0,100]

Answer 1

program raf105;

var a:array[1..20] of integer;

i:integer;

begin

for i:=1 to 20 do

begin

 a[i]:=random(0,100);

 write(a[i],' ');

end;

end.

Язык программирования PascalABC

Answer 2

Конечно, вот пример программы на Pascal, которая заполняет массив A[1..20] произвольными числами в диапазоне [0,100]:

pascalCopy code
program FillArray;

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

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

  // Заполняем массив A случайными числами в диапазоне [0, 100]
  for i := 1 to 20 do
  begin
    A[i] := Random(101); // Генерируем случайное число от 0 до 100
  end;

  // Выводим заполненный массив на экран
  writeln('Массив A[1..20] заполнен случайными числами в диапазоне [0, 100]:');
  for i := 1 to 20 do
  begin
    write(A[i], ' ');
  end;
  writeln;

  // Завершаем программу
  readln;
end.

Эта программа использует функцию Randomize, чтобы инициализировать генератор случайных чисел, и затем заполняет массив A случайными числами в диапазоне от 0 до 100. Результат будет выводиться на экран.