Определить: а) сумму всех элементов массива; б) произведение всех элементов массива; в) сумму квадратов всех элементов; г) сумму шести первых элементов массива; д) сумму элементов массива с k1-го по k2-й ( значение k1 и k2 вводятся с клавиатуры; k2> k1); надо

138

224

Посмотреть ответы 2

Ответы на вопрос:

СомСоми

Информатика

4,8(100 оценок)

Const n = 40; var s,i,ind,k1,k2: integer; mas: array[1..n] of integer; begin s : = 0; for i: =1 to n do s : = s+ mas[i]; writeln ('сумма элементов массива: ',s); s : = 1; for i: =1 to n do s : = s * mas[i]; writeln ('произведение элементов массива: ',s); s : = 0; for i: =1 to n do s : = s + mas[i]*mas[i]; writeln ('сумма квадратов элементов массива: ',s); s : = 0; for i: =1 to 6 do s : = s+ mas[i]; writeln ('сумма первых 6 элементов массива: ',s); ind: =0; repeat writeln('введите к1: '); read(k1); writeln('введите к2: '); read(k2); if (k2> k1) then ind : = 1; until (ind=1); s : = 0; for i: =k1 to k2 do s : = s+ mas[i]; writeln ('сумма элементов массива с k1-го по k2-й: ',s); end.