найти сумму положительных и отрицательных элементов массива 

  • var   a:array[1..1000] of integer; 
    s,n:integer; 
     p:real; 
     k,i:byte;
    begin
    k:=0;
    s:=0;
    randomize;
    writeln('кол-во элементов массива');
    readln(n);
    for i:=1 to n do
    begin
    a[i]:=random(100)-46;
    write('a(',i,')=',a[i],' ');
    end;
    for i:=1 to n do
    begin
    if a[i]< 0 then s:=s+a[i];
    if a[i]>0 then k:=k+a[i];
    end;
    writeln(' ');writeln ('Сумма положительных: ',k);
    writeln ('Сумма отрицательных: ',s);
    end.



See also: