Значение элемента массива вводится до нуля. Просчитайте произведение значений его элементов

Question

Информатика

Флавиан

26 февраля, 10:29

Значение элемента массива вводится до нуля. Просчитайте произведение значений его элементов

+4

Ответы (1)

Знаете ответ на вопрос?

Дарий · Answer 1

А если массив не заводить?

uses Crt;

var n: integer;

p: longint;

begin

ClrScr;

p:=1;

repeat

Write (' n = ') ;

ReadLn (n) ;

if n0 then P:=P*n;

until n=0;

WriteLn (' Pro = ', P) ;

ReadLn;

end.

Опасность: Можно выйти за диапазон возможный значений для longint ...