Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.10.2015 11:08
- Информатика
- remove_red_eye 19780
- thumb_up 45
Ответы и объяснения 1
nn=100; { максимальный размер }
var
a:array[1..nn] of integer;
i,n,k1,k2:integer;
p:real;
begin
Write('n='); Read(n);
Randomize;
for i:=1 to n do begin
a[i]:=Random(101)-50;
Write(a[i],' ')
end;
Writeln;
Writeln('Уменьшим элементы массива вдвое');
for i:=1 to n do begin
a[i]:=a[i] div 2;
Write(a[i],' ')
end;
Writeln;
Write('Введите k1 <= k2 <= n: '); Read(k1,k2);
p:=1;
for i:=k1 to k2 do p:=p*a[i];
Writeln('Произведение элементов c номерами ',k1,'..',k2,' = ',p)
end.
Пример
n=13
-44 1 -5 44 16 -11 -29 36 -21 -42 3 1 40
Уменьшим элементы массива вдвое
-22 0 -2 22 8 -5 -14 18 -10 -21 1 0 20
Введите k1 <= k2 <= n: 3 8
Произведение элементов c номерами 3..8 = -443520
- 13.10.2015 04:59
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.