Ты не написала в чем решить ну я решу в паскале:
Program Frank;
const n=15;
Type mas=array[1..n] of integer;
var a:mas;max,i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random(100)+5;
writeln(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if (a[i]>max) then max:=a[i]
end;
writeln('Максимальное число := ',max);
k:=0;
for i:=1 to n do begin
if a[i]<0 then k:=k+1</p>
end;
writeln("Кол-во отрицательных чисел := ",k);
end.