Определение суммы всех абсолютных значений элементов массива - Turbo Pascal

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

Составить программу определения суммы всех абсолютных значений элементов массива. Выполнить программу для длины массива N=8. Элементы массива вводятся с клавиатуры.

Решение задачи: «Определение суммы всех абсолютных значений элементов массива»

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

...
For i:=1 to 8 do
Begin
  Readln(M[i]);
  Summ:=Summ+abs(M[i]);
End;
Writeln(Summ);
End.

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

В цикле for переменной i от 1 до 8 выполняется итерация.
На каждой итерации считывается значение элемента массива M[i] с помощью функции Readln.
Значение элемента берется по модулю (abs(M[i))) и добавляется к переменной Summ.
После завершения цикла, значение переменной Summ выводится на экран с помощью функции Writeln.