ВЕЖБИ  ЗА  ПРОЦЕДУРИ

1. ДСПКШ кој пресметува и печати збир на сите броеви од 1 до N.

Решение

program proced;

procedure proc(n:integer;var m:integer);
    var c:integer;
    begin
    m:=0;
    for c:=1 to n do
        m:=m+c;

end;

var n,m,sum:integer;
begin
writeln('Vnesete vrednost za n');
readln(n);
proc(n,m);
writeln('Zbirot iznesuva',m);
end.

2. ДСПКШ кој пресметува и печати збир на елементите на едно еднодимензионо поле со N елементи

Решение

program proba;
    type pole=array[1..100] of integer;
    var a:pole;
    i,n,s:integer;

procedure pecati(aa:pole;nn:integer;var suma:integer);
    var j:integer;
    begin
        suma:=0;
        for j:=1 to nn do
        begin
            suma:=suma+aa[i];
    end;
end;

begin
    writeln('Vnesete go brojot na elementi !');
    readln(n);

    writeln('Vnesete go elementite na poleto !');
    for i:=1 to n do
        readln(a[i]);

    for i:=1 to n do
        writeln(a[i]);

    pecati(a,n,s);        { POVIKUVANJE NA PROCEDURATA }

    writeln('od procedura Sumata na elementi e: ',s);

end.