Здравствуйте, 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.

Консультировал: Пупорев Юрий Борисович Дата отправки: 28.05.2008, 13:37

Рейтинг ответа: 0 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »