Перевод из паскаля на си. Найти количество отрицательных элементов массива - C (СИ)

Формулировка задачи:

Народ, помогите пожалуйста с переводом из Pascal на C

program lab;
const N=30;
var A:array[1..N] of real;
i,k:integer;
S:real;
begin
 
writeln('Введите элементы массива:');
for i := 1 to N do
    read(A[i]);    
 
k := 0;
S := 0;
for i := 1 to N do
begin
    if A[i] < 0 then
        inc(k);
    S := S + A[i];
end;    
 
writeln('Сума элементов массива: ', S:2:2);
writeln('Количество отрицательных элементов массива: ', k);

Решение задачи: «Перевод из паскаля на си. Найти количество отрицательных элементов массива»

Листинг программы

#include <stdio.h>
#include <conio.h>
int main()
{
   const int N=30;
   double S,A[N];
   puts("Введите элементы массива:");
   for(i=0;i<N;i++)
         scanf("%lf",&A[i]);
   k = 0;
   S = 0;
   for(i=0;i<N;i++)
   {
        if (A[i] < 0)
             k++;
        S+=A[i];
    }
    printf("Сума элементов массива: %4.2lf\n", S);
    printf("Количество отрицательных элементов массива: %d", k);
    getch();
    return 0;
}

Объяснение кода листинга программы

Подключение необходимых библиотек для работы с консолью и сканированием значений.
Объявление переменных:
- S - сумма элементов массива;
- A - сам массив;
- N - количество элементов в массиве;
- i - счётчик для прохода по элементам массива;
- k - счётчик отрицательных элементов массива.
Ввод элементов массива с помощью цикла и функции scanf.
Инициализация счётчика отрицательных элементов и суммы элементов массива.
Проход по элементам массива с помощью цикла, проверка на отрицательность значения элемента массива и увеличение счётчика отрицательных элементов.
Добавление каждого элемента массива к сумме.
Вывод суммы элементов массива и количества отрицательных элементов.
Ожидание нажатия клавиши для завершения работы программы.
Возвращение 0 для завершения работы программы.