Программирование обработки одномерных массивов Опции

[ЯЯЯ]

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

2) Создать массив целых чисел. Найти сумму и количество тех элементов массива, которые меньше заданного числа N. Вывести результат работы на экран.

[Reflex]

Volvo - опечатка

if arr[i]<0 then arr[i]:=-(arr[i]);

а поповоду переменных N и С - это переменные означающие количество использованных переменных в массиве, а предполагаеться что значение переменных n и c даны и массив заполнен

А программы проверялись, просто я запуталась когда перепечатывала

теперь буду писать в Delphi и просто копировать, а полные решение, лично мне проще, тебе дают а ты потом час, а то и два разбираешься, к каждой строчке коментарий пишешь. Так тоже понимание приходит