Var
a:array[1..1000] of integer;
n, i, suma:integer;
begin
write('введите количество чисел массива ');
readln(n);
suma:=0;
for i:=1 to n do
begin
a[i]:=random(101)-70;
if(a[i]<0) then
suma:=suma+a[i];
end;
write('массив ');
for i:=1 to (n-1) do
write(a[i],', ');
writeln(a[n],' ');
writeln('сумма отрицательных элементов ',abs(suma));
end.
F:/DOCUM/LENA/letter.doc
F:/DOCUM/LENA/Tables.xls
F:/DOCUM/IVAN/my.doc
F:/ARCHIV/MAIN/letter.doc
F:/ARCHIV/MAIN/my.doc
F:/ARCHIV/1.zip
Var n,k,sum,i:integer;
begin
readln (n);
if (n<10)and(n>-10) then
for i:=1 to 10 do begin
if n mod i=0 then
sum:=sum+i;
k:=k+1;
end;
writeln(sum, ' ', k);
end.
Надеюсь, сделано, как в параграфе =)