Процедури і функції (деякі задачі)
Задача: Знайти суму елементів масиву. Введення та виведення масиву оформити процедурами. Знаходження суми організувати за допомогою функції.
uses crt;
const k=100;
type mas = array [1..k] of real;
var a : mas;
n : integer;
procedure inmas (var m : mas);
var i : integer;
begin
write('N=');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(m[i]);
end;
end;
procedure outmas (kol : integer; m : mas);
var i : integer;
begin
for i:=1 to kol do
writeln(m[i]);
end;
function suma (kol : integer; m : mas):real;
var i : integer;
s : real;
begin
s:=0;
for i:=1 to kol do
s:=s+m[i];
suma:=s;
end;
begin
inmas(a);
writeln('Suma=',suma(n,a):0:2);
outmas(n,a);
readln;
end.