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

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

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

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

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

5   голосов, оценка 4.600 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы