Сумма элементов одномерного массива.

@Santa-[r62] · Регистрация: 24.11.2009

Author24 — интернет-сервис помощи студентам

Составить подпрограмму определения суммы элементов одномерного массива. Используя ее, вычислить сумму элементов матрицы.

@yanyk1n · 15.02.2010, 19:31

Pascal

uses crt;
type mat:array[1..100]of integer;
var a:mat; i,n:integer;
 
function sum(a:mat; n:integer):integer;
var i:integer;
begin
 sum:=0;
 for i:=1 to n do sum:=sum+a[i];
end;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 for i:=1 to n do read(a[i]);
 readln;
 writeln('S=',sum(a,n));
 readln;
end.

@Santa-[r62] · 15.02.2010, 20:06 **[ТС]**

Спасибо большое

@r0mr3m · 22.05.2017, 08:48

Прост 9 строку пишет "Нет перегруженной подпрограммы с такими типами параметров"

@JokeR.BY · 22.05.2017, 12:06

r0mr3m, нужно заменить функцию sum в коде поста №2 на:

Pascal

function sum(const a: mat; const n: integer): integer;
var i: integer;
//если ругается на отсутствие переменной Result - удалить строку выше и раскомментировать строку ниже
//var i, Result: integer;
begin
 Result:=0;
 for i:=1 to n do Inc(Result, a[i]);
end;

@Santa-[r62] 0 / 0 / 0 Регистрация: 24.11.2009 Сообщений: 7
		1
	Сумма элементов одномерного массива. 15.02.2010, 19:14. Показов 1334. Ответов 4 Метки нет (Все метки) Составить подпрограмму определения суммы элементов одномерного массива. Используя ее, вычислить сумму элементов матрицы. 0

@Santa-[r62] 0 / 0 / 0 Регистрация: 24.11.2009 Сообщений: 7
	15.02.2010, 20:06 [ТС]	3
	Спасибо большое 0

@r0mr3m 0 / 0 / 0 Регистрация: 02.04.2017 Сообщений: 18
	22.05.2017, 08:48	4
	Прост 9 строку пишет "Нет перегруженной подпрограммы с такими типами параметров" 0

	22.05.2017, 12:06