Заполнить массив размером 10 элементов целыми числами, вводимыми с клавиатуры. вывести на экран элементы массива и из произведения

Question

Информатика

Тимося

4 ноября, 09:58

Заполнить массив размером 10 элементов целыми числами, вводимыми с клавиатуры. вывести на экран элементы массива и из произведения

+5

Ответы (1)

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

Плакида · Answer 1

Const n = 10;

var a : array [1 ... n] of integer; i, p : integer;

begin

for i: = 1 to n do readln (a[i]) ; for i: = 1 to n do write (a[i],' ') ; writeln; p: = 1; for i: = 1 to n do p: = p * a[i]; writeln (p) ;

end.