Заполнить массив размером 10 элементов целыми числами ,вводимыми с клавиатуры . вывести на экран элементы массива и из произведения
Заполнить массив размером 10 элементов целыми числами ,вводимыми с клавиатуры . вывести на экран элементы массива и из произведения
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы