Program A1;
const n=50;
Var
i,min,sum,nul:integer;
a:array[1..n] of integer;
Begin
randomize;
for i:=1 to n do begin
a[i]:=random(30)-10;
write(a[i]:4);
end;
nul:=0;
if a[i]<0 then nul:=nul+1;
Writeln('Koli4ectBo HyJlEi=',nul:2);
for i:=1 to n do begin
min:=-10;
end;
for i:=1 to n do begin
if a[i]<min then min:=a[i];
sum:=min+a[i+1];
end;
Writeln('CyMMa ElementoB /7OCJlE min=',sum:4);
end.
Как видишь чето у меня не получается,посмотрим что мастера скажут.