Массив: Создать третий массив, каждый элемент которого равен сумме элементов двух заданных массивов. - Pascal - Ответ 13682284

program Project1;
const
  maxelem = 25;
type
  TArr = array [1..maxelem] of integer;
 
procedure RandomInfInArray (var arr: TArr; narr,leftval,rightval: integer);
// Процедура для заполнения одномерного массива случайными числами.
var
   i: integer;
begin
for i:= 1 to narr do
  arr[i]:= leftval + random(rightval - leftval + 1) ;
 
end;
 
procedure InfOutArray (arr: TArr; narr: integer);
// Процедура для вывода элементов массива на экран.
var
   i: integer;
begin
  for i:= 1 to narr do
    begin
      Write(arr[i]:4);
      if i mod 10 = 0 then
        Writeln;
    end;
end;
 
procedure ArraySumArray (arr,brr: TArr; narr: integer; var crr: TArr);
// Процедура для суммирования элементов двух массивов и вывода результата в третий массив.
var
   i: integer;
begin
  for i:= 1 to narr do
    crr[i]:= arr[i] + brr[i];
end;
 
var
   a,b,c:TArr;  // Переменные для хранения массивов.
   n: integer;  // Переменная для хранения значения количества элементов массива.
begin
  Writeln('Введите значение количества элементов массива:');
  Readln(n);
  RandomInfInArray(a,n,-100,100);
  RandomInfInArray(b,n,-100,100);
  Writeln('Исходный массив A:');
  InfOutArray(a,n);
  Writeln('Исходный массив В:');
  InfOutArray(b,n);
  ArraySumArray(a,b,n,c);
  Writeln('Результат суммирования массива А и массива В:');
  InfOutArray(c,n);
  Readln;
end.

program Project1;
const
  maxelem = 25;
 
var
   a,b,c: array [1..maxelem] of integer;  // Переменные для хранения массивов.
   n: integer;  // Переменная для хранения значения количества элементов массива.
   i: integer; //  Вспомогательная переменная для организации циклов.
 
begin
  Randomize;
  Writeln('Введите значение количества элементов массива:');
  Readln(n);
  for i:= 1 to n do
    begin
      a[i]:= random(201)-100;  // Массив А заполняется случайными числами.
      b[i]:= random(201)-100;  // Массив B заполняется случайными числами.
    end;
  Writeln('Исходный массив A:');
  for i:= 1 to n do
    begin
      Write(a[i]:4);            // Элементы массива А выводятся на экран.
      if i mod 10 = 0 then
        Writeln;
    end;
  Writeln('Исходный массив В:');
  for i:= 1 to n do
    begin
      Write(b[i]:4);           // Элементы массива В выводятся на экран.
      if i mod 10 = 0 then
        Writeln;
    end;
  Writeln('Результат суммирования массива А и массива В:');
  for i:= 1 to n do
    begin
      c[i]:= a[i] + b[i];     // Элементы массивов А и В суммируются и запоминаются в массиве С
      Write(c[i]:4);          // Элементы массива С выводятся на экран.
      if i mod 10 = 0 then
        Writeln;
    end;
 
  Readln;
end.