Дан массив из 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 - достаточно