Question

Написать программу, которая заполняет два одномерных массива случайными числами. Получить третий массив, элементы которого равны произведению соответствующих элементов исходных массивов. Pascal ABC

Answer 1

Const
  n=15; { длина массива }
type
  tm=array[1..n] of integer;
var
  i:byte;
  a,b,c:tm;
begin
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random(101-50);
    b[i]:=random(101-50);
    c[i]:=a[i]*b[i];
    Write(a[i],' ')
  end;
  Writeln;
  for i:=1 to n do
  begin
    Write(b[i],' ')
  end;
  Writeln;
  for i:=1 to n do
  begin
    Write(c[i],' ')
  end;
  Writeln
end.

Answer 2

Для создания программы, которая заполняет два одномерных массива случайными числами и получает третий массив с элементами, равными произведению соответствующих элементов исходных массивов в Pascal ABC, следуйте этому коду:

pascalCopy code
program MultiplyArrays;

const
  ArraySize = 10; // Задайте желаемый размер массивов

type
  IntArray = array[1..ArraySize] of Integer;

var
  arrayA, arrayB, arrayC: IntArray;
  i: Integer;

// Процедура для заполнения массива случайными числами
procedure FillArrayRandom(var arr: IntArray);
var
  i: Integer;
begin
  for i := 1 to ArraySize do
    arr[i] := Random(100); // Здесь используется диапазон случайных чисел от 0 до 99, можно изменить по необходимости
end;

// Процедура для вывода массива на экран
procedure PrintArray(const arr: IntArray);
var
  i: Integer;
begin
  for i := 1 to ArraySize do
    Write(arr[i], ' ');
  Writeln;
end;

// Процедура для перемножения элементов массивов A и B и записи результата в массив C
procedure MultiplyArrays(const arrA, arrB: IntArray; var arrC: IntArray);
var
  i: Integer;
begin
  for i := 1 to ArraySize do
    arrC[i] := arrA[i] * arrB[i];
end;

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

  // Заполнение массивов A и B случайными числами
  FillArrayRandom(arrayA);
  FillArrayRandom(arrayB);

  // Вывод массивов A и B на экран
  Writeln('Массив A:');
  PrintArray(arrayA);
  Writeln('Массив B:');
  PrintArray(arrayB);

  // Перемножение массивов A и B и запись результата в массив C
  MultiplyArrays(arrayA, arrayB, arrayC);

  // Вывод результирующего массива C на экран
  Writeln('Массив C (произведение A и B):');
  PrintArray(arrayC);
end.

Этот код определяет три одномерных массива (arrayA, arrayB и arrayC) и использует процедуры для заполнения массивов случайными числами, перемножения элементов массивов A и B и вывода массивов на экран. Размер массивов задается константой ArraySize. Обратите внимание, что в этом примере массивы заполняются случайными числами в диапазоне от 0 до 99. Вы можете изменить этот диапазон, указав другие значения в Random() функции.