Question

PASCAL: найти сумму всех элементов массива

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, s: integer;

begin

 // рандомный массив из 10 чисел, от -15 до 15:

 for i := 1 to 10 do arr[i] := random(-15, 15);

 writeln(arr);

 

 // сумма элементов массива

 writeln(arr.sum);

end.