Сформировать массив из 10 целочисленных элементов (от 1 до 15) и вывести на экран. Найти произведение всех элементов массива.

Question

Информатика

Водя

14 февраля, 17:48

Сформировать массив из 10 целочисленных элементов (от 1 до 15) и вывести на экран. Найти произведение всех элементов массива.

+5

Ответы (1)

Знаете ответ?

Лия · Answer 1

Var

a: array [1 ... 10] of byte;

p: integer;

i: byte;

begin

p : = 1;

writeln ('Массив:') ;

Randomize;

for i : = 1 to 10 do

begin

a[i] : = Random (15) + 1;

write (a[i]:4) ;

p : = p * a[i];

end;

writeln;

write ('Произведение = ', p:4) ;

end.