Сформировать массив из 10 целочисленных элементов (от 1 до 15) и вывести на экран. Найти произведение всех элементов массива.
Answers & Comments
PuerDeSatan
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.
Answers & Comments
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.