Сформировать массив из 10 целочисленных элементов - вопрос №264126510115 от mGgl1 28.12.2022 13:49

Question

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

mGgl1 · 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.