Дан массив из 13 элементов. элементами массива являются первые 13 нечетных чисел. найти произведение элементов этого массива. написать программу в паскале, как можно проще, без лишних наворотов, .
Var proizv:int64; a: array [1..13] of integer; begin // заполняем массив for var i:=1 to 13 do a[i]:=i+i-1; proizv:=1; // основной цикл for var i:=1 to 13 do proizv:=proizv*a[i]; writeln('Произведение = ',proizv); end.
Это работает в АБС-паскале Типа данных integer мало для хранения произведения, но int64 - достаточно
a: array [1..13] of integer;
begin
// заполняем массив
for var i:=1 to 13 do
a[i]:=i+i-1;
proizv:=1;
// основной цикл
for var i:=1 to 13 do
proizv:=proizv*a[i];
writeln('Произведение = ',proizv);
end.
Это работает в АБС-паскале
Типа данных integer мало для хранения произведения, но int64 - достаточно