Вопрос по информатике:
Дан целочисленный массив A [n]
уменьшите все элементы массива в 2 раза.
определите произведение элементов массива с k1 по k2 (k2>k1).
- 15.02.2018 17:34
- Информатика
- remove_red_eye 18017
- thumb_up 25
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a.Select(x->x div 2).ToArray;
a.Println;
var k1,k2:integer;
Write('Введите k1,k2 (k1<=k2<=',a.Length,'): '); Read(k1,k2);
Writeln('Произведение элементов с номерами [',k1,':',k2,'] равно ',
a[k1-1:k2].Aggregate(biginteger(1),(m,n)->m*n))
end.
Пример
n= 13
12 34 -4 -18 23 45 -7 49 47 11 -24 39 31
6 17 -2 -9 11 22 -3 24 23 5 -12 19 15
Введите k1,k2 (k1<=k2<=13): 3 8
Произведение элементов с номерами [3:8] равно -313632
- 16.02.2018 00:20
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.