Question

Заполнить массив А из 15 целых чисел случайными элементами из диапазона от 0 до 101. Заполнить массив B по формуле: B[i]:=A[i]+10. Размерности массивов A и B одинаковые. Вывести оба массива на экран. Сделать в Паскале. Информатика, 9 класс. Заранее спасибо.

Answer 1

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(15, 0, 101);

 a.Println;

 var b := a.Select(t -> t + 10).ToArray;

 b.Println

end.

27 39 18 86 98 61 17 79 52 4 77 95 35 67 66

37 49 28 96 108 71 27 89 62 14 87 105 45 77 76

Answer 2

Код (Pascal)

var

 a, b: array[1..15] of integer;

 i: integer;

begin

 for i := 1 to 15 do

 begin

   a[i] := random(102);

   b[i] := a[i] + 10;

 end;

 writeln('Массив A:');

 for i := 1 to 15 do

   write(a[i], ' ');

 writeln;

 writeln('Массив B:');

 for i := 1 to 15 do

   write(b[i], ' ');

 writeln;

end.

Answer 3

Добро пожаловать в мир программирования! Вот пример кода на языке Pascal, который выполняет задачу:

pascalCopy code
program ArraysExample;

const
  ARRAY_SIZE = 15;

var
  A, B: array[1..ARRAY_SIZE] of Integer;
  i: Integer;

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

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

  // Заполнение массива B по формуле B[i] := A[i] + 10
  for i := 1 to ARRAY_SIZE do
    B[i] := A[i] + 10;

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

  // Вывод массива B на экран
  writeln;
  writeln('Массив B:');
  for i := 1 to ARRAY_SIZE do
    write(B[i], ' ');

  readln;
end.

Этот код создает два массива A и B размером 15 элементов каждый. Затем заполняет массив A случайными числами от 0 до 101. Далее, массив B заполняется значениями, равными элементам массива A, увеличенными на 10. И наконец, оба массива выводятся на экран.

Удачи в изучении информатики! Если у вас возникнут еще вопросы, не стесняйтесь задать их.