Question

Написать в PascalABC программу заполнения массива тремя способами: с клавиатуры, случайными числами, по формуле. помогите пж, срочно надо 25 баллов

Answer 1

var a: array [1..10] of real;

i: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i, ' элемент массива: ');

       readln(a[i]);

   end;

   writeln('С клавиатуры: ', a);

   

   for i := 1 to 10 do

   begin

       a[i] := random(-5,5);

   end;

   writeln('Случайными числами: ', a);

   

   for i := 1 to 10 do

   begin

       a[i] := i + sin(i);

   end;

   writeln('По формуле: ', a);

end.

Answer 2

Вот пример программы на языке PascalABC, которая заполняет массив тремя разными способами: с клавиатуры, случайными числами и по формуле.

program FillArray;

const
  SIZE = 10; // размер массива

var
  arr: array[1..SIZE] of Integer;
  i: Integer;

begin
  // Заполнение массива с клавиатуры
  writeln('Введите элементы массива:');
  for i := 1 to SIZE do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

// Заполнение массива случайными числами
  Randomize;
  for i := 1 to SIZE do
  begin
    arr[i] := Random(100); // случайное число от 0 до 99
  end;

// Заполнение массива по формуле
  for i := 1 to SIZE do
  begin
    arr[i] := i * 2; // пример формулы: умножение на 2
  end;

// Вывод массива
  writeln('Массив:');
  for i := 1 to SIZE do
  begin
    write(arr[i], ' ');
  end;
  writeln;
end.

В этой программе используется массив `arr` размером 10 элементов. Сначала массив заполняется с клавиатуры, затем случайными числами и, наконец, по формуле. В каждом случае элементы массива выводятся на экран.

Примечание: В данном примере размер массива равен 10, но вы можете изменить его, если вам нужно больше или меньше элементов.

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