Определения суммы и адресов отрицательных элементов массива вещественных чисел

[Vladislav125]

Нужно составить программу определения суммы и адресов отрицательных элементов массива вещественных чисел K=(k^j) , j=1.m,m-число элементов в массиве K=(<=450). Вывести на экран найденное количество, а также все найденные адреса.
Вот пример кода как должен выглядеть

Uses crt;{подключение стандартного модуля ТР}
Var m:array[1..20] of real; {Описание массива вещественных чисел}
S:real; {Описание переменной для хранения суммы}
i,K:byte; {Описание переменных для счетчика и количества чисел}
Begin               Clrscr;{Очистка экрана}
Write('Введите число элементов в массиве K='); Readln(K);
Writeln('Введите ',K,'вещественные чисел через пробел');
For i:=1 to K do read(M[i]);{Ввод вещественных чисел}
writeln; {Переход на новую строку на экран}
S:=0.0;  {Присвоение начального значения суммы}
    For i:=1 to K do
    If M[i]>0 then S:=S+M[i]; {Суммирование положительных чисел}
    Writeln('S=',S); {Вывод полученной суммы}
End.

[newerow1989]

Var m:array[1..20] of real; {Описание массива вещественных чисел}
S:real; {Описание переменной для хранения суммы}
i,K,n:byte; {Описание переменных для счетчика и количества чисел}
Begin
Write('Введите число элементов в массиве K='); Readln(K);
Writeln('Введите ',K,'вещественные чисел через пробел');
For i:=1 to K do read(M[i]);{Ввод вещественных чисел}
writeln; {Переход на новую строку на экран}
S:=0.0;  {Присвоение начального значения суммы}
n:=0;
    For i:=1 to K do
    If M[i]<0 then
    begin
       S:=S+M[i]; {Суммирование положительных чисел}
       Inc(n);
       Write(i,'  ');
    end;
    Writeln;
Writeln('n=',n);
Writeln('S=',S:8:5); {Вывод полученной суммы}
Readln;
Readln;
End.

[Vladislav125]

Сообщение от newerow1989

Var m:array[1..20] of real; {Описание массива вещественных чисел}
S:real; {Описание переменной для хранения суммы}
i,K,n:byte; {Описание переменных для счетчика и количества чисел}
Begin
Write('Введите число элементов в массиве K='); Readln(K);
Writeln('Введите ',K,'вещественные чисел через пробел');
For i:=1 to K do read(M[i]);{Ввод вещественных чисел}
writeln; {Переход на новую строку на экран}
S:=0.0;  {Присвоение начального значения суммы}
n:=0;
    For i:=1 to K do
    If M[i]<0 then
    begin
       S:=S+M[i]; {Суммирование положительных чисел}
       Inc(n);
       Write(i,'  ');
    end;
    Writeln;
Writeln('n=',n);
Writeln('S=',S:8:5); {Вывод полученной суммы}
Readln;
Readln;
End.

Спасибо.

[newerow1989]