Паскаль. Одномерный массив.

[Inkognito99]

Люди добрые! помогите пожалуйста написать программу!

В одномерном массиве, состоящем из п вещественных
элементов, вычислить:
1. Количество отрицательных элементов массива.
2. Сумму модулей элементов массива, расположенных
после минимального по модулю элемента.
Заменить все отрицательные элементы массива их
квадратами и упорядочить элементы массива по
возрастанию.

1пункт я еще вроде как сделал) а вот 2ой никак

[ROMA2PVT]

uses crt;
Const
 n=6;
Type
 a=array[1..n] of integer;
var
    i,l,j,kol:integer;
    n1:integer;
    min,sum,x,pos:integer;
    c:a;
    begin
clrscr;
randomize;
writeln('Исходный массив K: ');
for i:=1 to n do
    begin
     c[i]:=random(10)-5;
     write(c[i],' ');
 end;
   writeln;
 min:=c[1];
for i:=1 to n do
if abs(c[i])<abs(min) then
 begin
  min:=c[i];
  pos:=i;
 end;
writeln('min=',min);
writeln;
sum:=0;
for i:=pos+1 to n do
begin
sum:=sum+abs(c[i]);
end;
writeln('Сумма модулей элементов после abs(min)= ',sum);
for i:=1 to n do
if c[i]<0 then
begin
c[i]:=sqr(c[i]);
inc(kol);
end;
writeln;
writeln('Массив отсортированный по возрастанию: ');
for i:= 1 to n do
    for j:= i to n do
      if c[i]>c[j] then
      begin
        x:=c[i];
        c[i]:=c[j];
        c[j]:=x;
      end;
for i:=1 to n do
  begin
    write(c[i],' ');
  end;
  writeln;
  writeln('Количество отрицательных элементов: ',kol);
end.

Вот.

[Inkognito99]

ROMA2PVT, Спасибо большое дружище))))

[ROMA2PVT]

Не за что.

[Marino444ka]

Помогите пожалуйста!!! двумерный массив вроде поняла, так одномерный не поддается(

Дан масив целых чисел... Все элементы массива, предшествующие наименьшему числу, домножить на это число.

[ROMA2PVT]

Показывайте наработки.Раз пытались.

[Marino444ka]

Я так поняла,что сначала нужно найти min число, а затем его домножать, а вот как... min нашла, не знаю как домножать(((

вот наименьшее:
writeln (Массив А);
for i:=1 to n do
write (a[i]:5);
writeln;
min:=a[i]; imin:=1;
for i:=2 to n do
if a[i]<min then begin
min:=a[i]:
imin:=i;
end;

[ROMA2PVT]

всё просто:

uses
   crt;
var
    i,min,n,posiz:integer;
     c:array[1..100] of integer;
    begin
clrscr;
randomize;
write('Введите количество элементов: ');
readln(n);
writeln('Исходный массив C: ');
for i:=1 to n do
    begin
     c[i]:=random(10)-5;
     write(c[i]:2,' ');
 end;
   writeln;
 min:=c[1];
 posiz:=1;
for i:=1 to n do
if c[i]<min then
 begin
  min:=c[i];
  posiz:=i;
 end;
writeln('MIN[',posiz,']:=',min);
for i:=1 to posiz-1 do
begin
c[i]:=c[i]*min;
end;
writeln;
writeln('Элементы массива до min умноженные на мин: ');
for i:=1 to n do
begin
write(c[i]:2,' ');
end;
readkey;
end.

[Marino444ka]

Спасибо)))) все идет!!!!!!=)
только меня знаете что смущает.... задала я количество элементов 6:
3 1 4 -1 -2 -3
MIN:=4
Почему Min 4?

[ROMA2PVT]

перепроверьте.И посмотрите как код переписали.