массив

[илья99]

помогите пжл!! нужно чтобы программа проверяла весь массив и если там нет элементов то он мне должен вывести форму
P.S. массив двумерный 100 на 100

[Хыиуду]

Как вы представляете двумерный массив 100х100, в котором нет элементов? Все равны нулю, что ли? Так это просто
all_zeros := true;
for i:=1 to 100 do
for j:=1 to 100 do
if A[i,j]!=0 then all_zeros:=false;
if (not all_zeros) then {вот тут вывести форму}