Получить массив, являющийся суммой двух других массивов - Pascal ABC

Формулировка задачи:

Даны два одномерных массива одинаковой размерности. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных массивов.

Решение задачи: «Получить массив, являющийся суммой двух других массивов»

textual
                            Листинг программы 
                        

                            const T = 10;
 
var
  mas, mas2, mas3 : array [1..T] of integer;
  i : byte;
  
begin
  randomize;
  for i:= 1 to T do
    mas2[i]:= random(20);
  for i:= 1 to T do
    Write(mas2[i]:4);
  Writeln;
  for i:= 1 to T do
    mas3[i]:= random(20);
  for i:= 1 to T do
    Write(mas3[i]:4);
  Writeln;
  for i:= 1 to T do
    mas[i]:= mas2[i] + mas3[i];
  for i:= 1 to T do
    Write(mas[i]:4);
end.
                        

Оцени полезность:

11 голосов , оценка 3.455 из 5

Похожие ответы