Задача про матрицу Опции

[Rom]

Задача:**Известно, что в матрице элемент последнего столбца может иметь лишь значение 0 и 1. Найти среднее фрифметическое общей совакупности элементов тех строк, последний элемент который равен 1.**
Вроде написал, но выдает ошибки.

Код

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var a: array [0..5,0..5] of real;
n,m,k,i,j:integer;
ca:real;

begin
writeln ('n=,  m =');
readln (n,m);
writeln (n,'*',m);
for i:=0 to n-1 do
for j:=0 to m-1 do
read (a[i,j]);
k:=0;
ca:=0;
for j=m-1 do
for i=0 to n-1 do
if a[i,j]:=1 then
begin
ca:=ca+a[i,j];
k:=k+1;
end;
ca:=ca/k;
writeln ('k=',k);
writeln ('ca=',ca);
end;


end.

[volvo]

Если бы ты соизволил форматировать программу, как положено, а не писать все с первой позиции строки, то сам бы увидел ошибки:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  a: array [0..5,0..5] of real;
  n,m,k,i,j:integer;
  ca:real;

begin
  writeln ('n=,  m =');
  readln (n,m);
  writeln (n,'*',m);
  for i:=0 to n-1 do
    for j:=0 to m-1 do
      read (a[i,j]);

  k:=0; ca:=0;
  for j:=0 to m-1 do
    for i:=0 to n-1 do
      if a[i,j] = 1 then begin
        ca:=ca+a[i,j];
        k:=k+1;
      end;
  ca:=ca/k;
  writeln ('k=',k);
  writeln ('ca=',ca);
end.

На правильность работы НЕ проверял, но программа компилируется...

[Rom]

Теперь програма компилируется только ничего не считает. Что мне сделать?

[volvo]

Исправляй... Значит, ошибки в логике программы...

[Rom]

Исправляй... Значит, ошибки в логике программы...

Это понятно, непонятно как праверить 0 или 1 в последнем столбце.

[Гость]

вроде делается это так, но компилятору это не нравиться?

Код

for j:=m-1 do
for i:=0 to n-1 do
if a[i,j]:=1 then
begin
ca:=ca+a[i,j];
k=k+1;
end;