2. Произведение элементов массива В(10, 25). Массив создать любым способом.

неск замечаний.
Произведение, ето как я понял перемножить все елементы ??
если так то очень вероятно переполнение т к 10 на 25 ето 250 операций умножения т е почти факториальное возростание, короче вот
(значения заносятся случайно в диапазоне от 1 до 2)

!!! и если хоть одно значение 0, то и результат тоже 0 ...

шо неясно пиши в почту.
ms-dos qbasic 1.0

----------------------------------------------------------------------
PRINT "============== ARRAYS"
ni = 10 ' strok
nj = 25 ' stolbcov
DIM B(ni, nj)

' AVTO zapolnenie massiva
RANDOMIZE 1 ' init randomizing in seek ...
FOR i = 1 TO ni ' zapolnenie massiva int [1..2]...
FOR j = 1 TO nj
B(i, j) = INT(RND * 2) + 1
PRINT B(i, j);
NEXT j
PRINT
NEXT i

PRINT

p = 1
FOR i = 1 TO ni
FOR j = 1 TO nj
p = p * B(i, j)
NEXT j
NEXT i

PRINT "Proizvidenie "; p
---------------------------------------------------

РЕЗУЛЬТАТ:
============== ARRAYS
2 1 2 2 1 1 2 1 1 2 2 1 1 1 1 1 1 1 2 1 1 2 2 2 1
2 2 2 2 2 2 2 2 2 2 2 1 1 1 2 2 1 1 2 2 2 1 2 2 2
1 1 2 2 2 1 1 2 1 1 2 2 1 2 1 1 1 1 1 1 2 2 1 1 2
2 1 2 1 2 1 2 2 2 1 2 1 2 2 1 2 2 2 2 1 1 2 2 1 1
1 1 1 2 1 2 1 1 1 2 2 2 2 1 1 2 1 1 2 1 2 1 1 2 2
2 1 1 2 1 1 2 1 1 2 2 1 2 2 2 2 2 1 1 1 2 1 1 1 1
2 2 2 1 1 1 2 1 2 2 2 2 1 2 2 2 1 2 2 2 1 1 2 1 2
2 2 1 2 1 1 2 1 1 1 1 2 2 1 1 2 2 2 1 2 1 2 1 2 1
1 2 1 2 1 1 1 2 2 2 1 2 1 1 1 1 1 2 1 1 1 1 1 1 1
1 1 1 1 1 1 1 2 1 1 2 1 2 1 2 2 2 2 1 1 1 2 2 1 1

Proizvidenie 1.329228E+36

Чтобы продолжить, нажмите любую клавишу

ето 1 и 36 нулей прим 8))

program q;
var i.j,pr:integer;
a:array [1..10,1..25] of integer;
begin
for i:=1 to 10 do
for i:=j to 25 do readln(a[i,j]);
pr:=1;
for i:=1 to 10 do
for i:=j to 25 do pr:=pr*a[i,j];
writeln(pr);
readln
end.