Одномерные массивы

[vaselisa162000]

Сумма трех одномерных массивов
Помогите пожалуйста, нужно написать программу

[Sciv]

const
  N = 5;

type
  TArr: array [1..N] of real;

function SumArray(AArray: TArr): real;
var
  i: integer;
begin
  Result := 0;
  for i := 1 to N do
    Result := Result + AArray[i];
end;

var
  Sum: real;
  Arr1, Arr2, Arr3: TArr;
begin
  Sum := SumArray(Arr1) + SumArray(Arr2) + SumArray(Arr3);
end.

[digitalis]

а если массивы разной длины ?

[Sciv]

Сообщение от digitalis

а если массивы разной длины ?

А я не говорил, что 100% готовую программу сделал.

Там ещё пилить и пилить.

[D1973]

Сообщение от vaselisa162000

Сумма трех одномерных массивов

А что в итоге должно получиться?
Число, равное сумме всех элементов заданных 3-х массивов? Или четвертый массив, полученный сложением соответствующих элементов 3-х заданных массивов? Во втором случае исходные массивы должны быть одной размерности...

[digitalis]

Вариантов много: мож быть массив, полученный слиянием первых трех.
Вообще даже когда вдруг клюнет блажь помочь бестолковму или ленивому студню, самое трудное - понять, чего нужно преподу. Я уже не раз отмечал, что судя по содержанию задач, все большинство из них - тетеретики, не видавшие реальных задач.