Дан целочисленный массив а [n].определить произведение элементов массива с k1 по k2 (k2> k1)

210

359

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

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

utrobin7

Информатика

4,6(47 оценок)

// pascalabc.net 3.3, сборка 1600 от 23.12.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',50); a.println; var (k1,k2): =readinteger2('границы номеров элементов k1 и k2: '); if (k1> 0) and (k2< =a.length) and (k2> k1) then writeln('п=',a[k1-1: k2].aggregate(biginteger(,q)-> p*q)) else writeln('неверно заданы k1,k2') end. пример n= 17 -49 33 -50 34 -21 -3 -16 -39 8 -27 -28 11 -12 -33 47 9 -20 границы номеров элементов k1 и k2: 3 15 п=-82750680146534400

Eugene032

Информатика

4,5(1 оценок)

Const m=200; var a: array[1..m] of integer; i,k1,k2,p,n: integer; begin write('количество элементов массива: '); readln(n); randomize; write('массив: '); for i: =1 to n do begin a[i]: =random(-40,40); write(a[i],' '); end; writeln; write('k1 k2 через пробел: '); readln(k1,k2); p: =1; if (k1 in [1..n]) and (k2 in [1..n]) and (k2> k1) then begin for i: =k1 to k2 do p: =p*a[i]; writeln('произведение: ',p); end else writeln('недопустимые значения k1 и k2 ',k1,' ',k2); end. количество элементов массива: 10 массив: 18 -40 5 -5 -22 -1 -3 22 -11 37 k1 k2 через пробел: 3 5 произведение: 550

marschmello

Информатика

4,4(51 оценок)

Может наливаешь 9л. ведро, 5 литров переливаешь в 5-литровое, остаётся 4, из 5 выливаешь. из 9 переливаешь остаток 4л. в 5, рисуешь палочкой (или чем найдешь) уровень 4 литров воды и переливаешь их обратно в 9. потом в 5 набираешь из реки воду до уровня 4 литров. и заполняешь остаток (1литр) из 9-литрового ведра, в котором оставалось 4 литра. там останется как раз 3 литра