program example;
type
Tarray = array[1..100] of integer;
Var v: Tarray;
N,i,s:integer;
Procedure vvod_data(var m:Tarray;n:integer);
Var i:integer;
Begin
Writeln(' ',n,' ');
For i:= 1 to n do read(m[i]);
End;
Function summ(m:TArray):integer;
Var s:integer;
Begin
S:=0;
For i:= 1 to n do if m[i]>0 then s:= s+m[i];
Summ:=s;
End;
begin
write(' N= '); readln(n);
vvod_Data(v,n);
s:= summ(v);
writeln('= ',s);
end.
Книги-online
