Const nn=100; var a:array[1..nn] of integer; i,n,k,l,s:integer; begin Randomize; Write('Количество элементов в массиве: '); Read(n); Write('Границы для суммирования: '); Read(k,l); { Считаем,что все введено корректно без проверки } Writeln('Элементы массива'); s:=0; for i:=1 to n do begin a[i]:=Random(100); Write(a[i],' '); if i in [k..l] then s:=s+a[i] end; Writeln(#13#10,'Найденная сумма: ',s) end.
Пример Количество элементов в массиве: 13 Границы для суммирования: 3 9 Элементы массива 30 82 9 6 20 99 58 61 18 61 73 51 28 Найденная сумма: 271
Язык не написан, значит могу написать на любом? Вот тебе JavaScript ;D
var arr = [], N, K, L, sum = 0; // (1 <= K <= L <= N)
N = Number(prompt('Введите размер массива (N)')); K = Number(prompt('Введите K')); L = Number(prompt('Введите L'));
for (let i = 0; i < N; i++) { arr[i] = Math.round(Math.random()*10); if (K <= i && L >= i) sum += arr[i]; }
console.log(`В массиве, размерностью ${N}, состоящем из чисел [${arr}], сумма элементов с позиции ${K} до ${L} (включительно), равна ${sum}`); // Или alert(text);
Var A,B,C,M,P:real; begin write('Введите A = ');Readln(A); write('Введите B = ');Readln(B); write('Введите C = ');Readln(C); M:=A; If B<M Then M:=B; if C<M Then M:=C; P:=(A*B*C)/M; Write('P = ',P); end.