В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
2ihnik21231
2ihnik21231
22.05.2022 03:39 •  Информатика

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

Показать ответ
Ответ:
ппп278
ппп278
07.10.2020 15:26
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,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(1),(p,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
0,0(0 оценок)
Ответ:
veronika56454
veronika56454
07.10.2020 15:26
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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота