В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. количество элементов массива, равных 0;
2. сумму элементов массива, расположенных после минимального элемента.
Упорядочить элементы массива по возрастанию модулей элементов.
Var a:array[1..10000] of real;
min,d,count,s: real;
i,j,m,n,key: integer;
begin
Randomize;
write('Введите n ');
readln(n);
writeln('Наш массив: ');
for i:=1 to n do
begin
a[i]:=random(21)-10;
Write(a[i]:1:1,' ');
end;
m:=0;
writeln();
for i:=1 to n do
if a[i]=0 then m:=m+1;
writeln('Количество нулевых элементов=',m);
min:=a[1];
for i:=2 to n do begin
if a[i]<=min then min:=a[i];
if a[i]<=min then m:=i;
end;
s:=0;
for i:=m+1 to n do
s:=s+a[i];
writeln('Сумма элементов, после последнего минимального=',s:3:1);
for i:=1 to N do
begin
for j:=1 to N-1 do
begin
key:=j+1;
count:=a[key];
if abs(a[j])>=abs(a[key]) then
begin
a[key]:=a[j];
a[j]:=count;
end;
end;
end;
writeln('Отсортированный по возрастанию модулей массив: ');
for i:=1 to n do begin
Write(a[i]:1:1,' ');
end;
end.