Var a: array [1..99] of integer; i, p, n: integer; begin p:=1; readln(n); for i:=1 to n do begin readln(a[i]); p:=p*a[i]; end; writeln('Произведение элементов массива = ', p); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
