//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
во-первых: задан ли двумерный массив с?
во-вторых, операторская скобка begin не нужна
в-третьих не поставлена точка с запятой после <span>c[i,j]:=a[i,j]+ a[i,j]</span>
<span>скоре всего ошибка в третьем...</span>
<span>алгоритм выполняет следующее: он берет элемент из двум. массива и в новый двумерный на это же место присваевает элементу значние, равное сумме этого элемента и его себя опять же,или,подругому, присвает ему значение, равное двум соотв. ему элементам в массиве предыдущ</span>
<span>например</span>
дан массив 2х3:
1 3 45
9 8 2344
тогда новый массив будет иметь вид:
2 6 90
18 16 4688
Чтобы знать к какому типу файл относится и для правильной работы с различными программами и форматами.