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

Question

Информатика

Фрося

5 ноября, 02:55

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

+3

Ответы (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.