Вопрос помогите написать программы в паскале
- Автор темы andrey79
- Дата начала
1) Инициализируешь единицей переменную для хранения произведения. Делаешь цикл repeat until до нулевого элемента, если очередной элемент не ноль, умножаешь его на свою переменную и запоминаешь в ней. Не знаю причину, по которой может не удасться вычислить произведение. Пустой массив что ли?
function MultiplierInteger(Array : array of Integer) : Integer; var I, NumsCount : Integer; msg : String; Is_MsgSend : Boolean; begin NumsCount := Lenght(Array); Result := 1; for I := 0 to NumsCount - 1 do begin if Nums <> 0 then begin Result := Result*Nums; end else begin if i = 0 then begin Is_MsgSend := True; msg := "Первым элементом в массиве оказался 0"; end; Break; end; if Is_MsgSend then begin вывод сообщения... end; end; end;