Размещено 5 лет назад по предмету
Информатика
от sgdsdgsd
Опешите программный код, очень надо
begin//начало
if (a[h,v]=0) or (a[h-1,v]<>0) then
eng+=1;
if a[h,v]<>0 then
if a[h-1,v]=0 then
begin//начало
a[h-1,v]:=a[h,v];
a[h,v]:=0;
end;//конец
end;//конец