Создайте программу на языке паскаль​

balbasenok balbasenok    3   03.03.2019 20:48    2

Ответы

var a:array of integer;

N,i:integer;

p:biginteger;

BEGIN

readln(N);

SetLength(a,N);

p:=1;

for i:=0 to (N-1) do begin

read(a[i]);

p:=p*a[i];

end;

writeln(p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика