Просто проверить программу!

[Lenochka058]

определить номера столбцов в матрице, имеющих четное число положительных элементов.

Если программа написана пральна...напиши блок схему.
я вообще не понимаю.
и прогу написала по образцу,так что чёт там что означает я тоже не знаю.)))

Program P501;
Type
Astr=array[1…10] of real;
Atype=array[1…10] of astr;
Var
a: atype;
n, {количество столбцов в матрице}
m, {количество столбцов в матрице, имеющих четное число положительных элементов}
k, {количество положительных элементов в столбце}
i,j: integer;
begin
write(‘n=’);readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write(‘a[‘,i,’,’,j,’]=’);
readln(a[i,j];
end;
m:=0
for i:=1 to n do
begin k:=0;
for j:=1 to n do
if a[i,j]>0 then k:=k+1;
if k mod 2 = 0 then m:=m+1;
end;
writeln (‘Количество столбцов, имеющих четное число положительных элементов,-‘,m);
end.

[ROMA2PVT]

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

[~~~]

Матрицу лучше вводить как матрицу, а не таким диалогом

a[1, 1] = 1
a[1, 2] = 0
...

Вот накатал быстро, правда не компилировал.

const
  Nmax = 10;
  Mmax = 10;
var
  a: Array[1..Nmax, 1..Mmax] of Real;
  i, j, k, N, M: Integer;
begin
  Writeln('Введите M, N');
  ReadLn(N, M);
  WriteLn('Введите матрицу N x M');
  for i := 1 to N do
    for j := 1 to M do
      Read(a[i, j]);
  WriteLn('Номера столбцов:');
  for j := 1 to M do
  begin
    k := 0;
    for i := 1 to N do
      if a[i, j] > 0 then Inc(k);
    if k mod 2 = 0 then WriteLn(j);
  end;
  ReadLn;
  ReadLn;
end.

P. S. Количество столбцов по условию выводить не надо