Вопрос по информатике:
Найти номер первого нулевого элемента массива a1,a2...a25 и произведение элементов расположенных до него, а среди элементов, расположенных правее первого нулевого , найти максимальный элемент
- 13.07.2018 14:03
- Информатика
- remove_red_eye 10344
- thumb_up 37
Ответы и объяснения 1
Var A: array [1..25] of integer;
i, p, max : integer;
BEGIN
for i:=1 to 25 do
read(A[i]);
p:=1;
i:=1;
while A[i]0 do begin
p:=p*A[i];
i:=i+1;
end;
writeln('Первый нулевой элемент ', i);
writeln('Произведение элементов до нулевого ', p);
max:=A[i+1];
for i:=i+1 to 25 do
if A[i]>max then max:=A[i];
writeln('Максимальный элемент после нулевого ', max);
END.
- 14.07.2018 23:38
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.