function souc=soucvektor(v)
% Funkce secte jednotlive prvky 
% vstupniho vektoru v

souc=[];
if nargin~=1
    error('Chybi vstupni parametr')
end
d=length(v);
s=0;
for i=1:d
    s=s+v(i);
end
souc=s;
disp(['Soucet prvku= ' num2str(s)])
disp(['Sum= ' num2str(sum(v))])

j=1;
s1=0;
while j<=d
    s1=s1+v(j);
    j=j+1;
end
disp(['Soucet prvku pomoci while= ' num2str(s1)]) 
end

