С клавиатуры

вводится число n. Заполнить массив с клавиатуры n значениями и вывести их произведение.

Question

Информатика

Исидора

2 марта, 10:40

С клавиатуры

вводится число n. Заполнить массив с клавиатуры n значениями и вывести их произведение.

+2

Ответы (1)

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

Артемий · Answer 1

Var

a: array[1 ... 100] of integer;

n, i: byte;

p: longint;

begin

readln (n) ;

p : = 1;

for i : = 1 to n do

begin

write ('a[', i, '] = ') ;

readln (a[i]) ;

p : = p * a[i];

end;

writeln (p) ;

end.

С клавиатурывводится число n. Заполнить массив с клавиатуры n значениями и вывести их произведение.

С клавиатуры

вводится число n. Заполнить массив с клавиатуры n значениями и вывести их произведение.