Question

Дополните созданную в п.4.7.3 программу формирования массива так,чтобы вычислялась сумма элементов массива и результат суммирования выводился на экран. Собственно сам п 4.7.3 Во многих случаях бывает полезно вывести значения элементов массива на экран. Так, если значения массива генерировались случайным образом, то необходимо знать, каков исходный массив. Также нужно знать, каким стал массив после обработки. Элементы массива можно вывести в строку, разделив их пробелом: for i:=1 to 10 do write (a[i], ' ');

Answer 1

Var a: array[1..10] of integer;
sum, i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
a[i] := random(10);
write (a[i], ' ');
sum := sum + a[i];
end;
writeln();
write('Сумма всех элементов: ', sum);
end.