Вопрос по информатике:
14. Найти произведение последних L положительных элементов в массиве A={a[i]}.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.10.2016 14:22
- Информатика
- remove_red_eye 1607
- thumb_up 45
Ответы и объяснения 1
//Pascal ABC.NET 3.1 сборка 1219
Var
ar:array[1..10] of integer;
i,n,k:integer;
b:boolean;
begin
randomize;
k:=1;
b:=false;
writeln('Array');
for i:=1 to 10 do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
end;
writeln;
readln(n);
for i:=10 downto 10-n+1 do
if ar[i]>0 then
begin
k:=k*ar[i];
b:=true;
end;
if b=true then write('Res=',k) else write('Res=0');
end.
Пример работы программы:
Array 0 -8 -7 -9 8 -8 9 2 -7 -6
5
Res=18
- 02.10.2016 08:39
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.