Консультация № 138118
27.05.2008, 17:38
0.00 руб.
0 1 1
Написать функцию, в коорой подсчитывается сумма элементов одномерного массива MAS размерностью N.

Обсуждение

давно
Профессор
401888
1232
28.05.2008, 13:37
общий
это ответ
Здравствуйте, Sanq4!
Решение задачи в приложении. Задача настолько простая, что не знаю, что комментировать.

Приложение:
uses crt;type Tmass=array[1..100]of integer;var a:Tmass; n,i:integer;function Summ(p:Tmass;q:integer):integer;{в параметры функции передаем массив и его размерность}var sm:integer;beginsm:=0;for i:=1 to q dosm:=sm+p[i];Summ:=sm;end;beginclrscr;randomize;write(‘Vvedite razmernost massiva n=‘);readln(n);writeln(‘Massiv:‘);for i:=1 to n do begin a[i]:=random(10); write(a[i],‘ ‘); end;writeln;Writeln(‘Summa elementov massiva=‘,Summ(a,n));{вызываем функцию}readlnend.
Форма ответа