Найдите сумму элементов трех одномерных массивов А(10),В(20),С(30).Вычислите суммы элементов одномерного массива ,оформить в виде функции.

Найдите сумму элементов трех одномерных массивов А(10),В(20),С(30).Вычислите суммы элементов одномерного массива ,оформить в виде функции.
Гость
Ответ(ы) на вопрос:
Гость
Притянуто "за уши", но такое уж задание несуразное. Видимо, для старых версий языка. // PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию! function Summa(a:array of integer):=a.Sum; begin   var a:=ArrRandom(10,-99,99); a.Println; Writeln;   var b:=ArrRandom(20,-99,99); b.Println; Writeln;   var c:=ArrRandom(30,-99,99); c.Println; Writeln;   Writeln('S=',Summa(a)+Summa(b)+Summa(c))   end. Пример 53 34 13 64 79 28 -98 -43 -19 23 96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44 -21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89 S=244
Не нашли ответ?
Ответить на вопрос
Похожие вопросы