Сформировать массив из 10 целочисленных элементов - вопрос №101152640931 от fatima777799ozu0sv 16.07.2021 00:03

Question

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

fatima777799ozu0sv · Answer

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.