Составить программу которая заполняет массив а [1...10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с индексом от n до m включительно. Числа n и m введите с клавиатуры
Ответы
Ответ дал:
2
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,10); a.Println;
var (n,m):=ReadInteger2('Введите n и m:');
Writeln('S=',a[n-1:m].Sum)
end.
Пример
1 8 9 1 2 1 10 4 10 2
Введите n и m: 3 6
S=13
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,10); a.Println;
var (n,m):=ReadInteger2('Введите n и m:');
Writeln('S=',a[n-1:m].Sum)
end.
Пример
1 8 9 1 2 1 10 4 10 2
Введите n и m: 3 6
S=13
Вас заинтересует
4 месяца назад
1 год назад
1 год назад
2 года назад
7 лет назад