Определение суммы всех абсолютных значений элементов массива - 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ