Ответ:

var a:array[1..100] of integer;

b,c,d:integer;

begin

c:=0;

d:=0;

for b:=1 to 100 do

begin

a[b]:=random(41)-30;

writeln('a[',b,']= ',a[b]);

if a[b]>0 then c:=c+1;

if a[b]<0 then d:=d+1;

end;

writeln('Количество положительных значений равняется ',c);

writeln('Количество отрицательных значений равняется ',d);

end.

5)

var  

int sum=0;

int kolmin=0;

arr=[0,15,12,–9,–8,58,45,36,–85,58,36,–45,2,3,25,–9];

for(i=0;i<16;i++){  

if(arr[i]>0){ sum+=arr[i];}

if(arr[i]<0){kolmin++;}

}

writeln('сумма + элементов = ',sum);

writeln('количество отрицательных элементов = ',kolmin);

end.

Объяснение: