Составьте программу которая заполняет массив а 1.10 случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму

var a: array[1..10] of integer;

i, n, m, sum: integer;

begin

writeln(\'Включаем генератор случайных чисел\');

randomize;

writeln(\'Заполняем массив случайными элементами\');

for i := 1 to 10 do a[i] := random(10);

writeln(\'Введите индекс n\');

readln(n);

writeln(\'Введите индекс m\');

readln(m);

writeln(\'Суммируем\');

for i := n to m sum := sum + a[i];

writeln(\'Сумма элементов массива на позициях от \', n, \' до \', \'m\', \' равна \', sum);

end.