Дан массив A(n x n)

[desu_desu]

Дан массив A(n x n).Подсчитать количество положительных значений элементов в каждой строке и сформировать из них одномерный массив

[VIK_aka_TOR]

for i:= 1 to n do
begin
    index:=0;
    for j:=1 to n do
    if a[i,j] > 0 then
    inc(index); // или же index:= index + 1; коль что
    b[i]:= index;
end;

массив думаю сам введешь и что да как объявлять догадаешься...

[Alex11223]

Эм...По-моему как-то так имелось в виду:

ind := 0;
for i := 1 to n do
begin
    c := 0;
    for j := 1 to n do
        if (a[i, j] > 0) then
        begin
            inc(ind);
            b[ind] := a[i, j];
            inc(c);
        end;
    writeln('elementov v ', i, ' stroke: ', c);
end;

[VIK_aka_TOR]

Сообщение от Alex11223

Эм...По-моему как-то так имелось в виду:

ind := 0;
for i :=1 to n do
begin
    c := 0;
    for j :=1 to n do
        if (a[i, j] > 0) then
        begin
            inc(ind);
            b[ind] := a[i, j];
            inc(c);
        end;
    writeln('elementov v ', i, ' stroke: ', c);
end;

мляююю пунктуация решает проблемы подобного рода))))