помогите,пожа-та, найти ошибку

[jaw]

Вычислить произведение элементов каждого столбца матрицы и определить число столбцов с положительным произведением.

program 38;
uses crt;
type t=array [1..50,1..50]  of real;
var a:t;   i,n,k,m,kol:integer;   pr:real;
begin
clrscr;
writeln('vvedite kol-vo strok');
readln(m);
writeln('Vvedite kol-vo stolbcov');
readln(n);
for i:= 1 to m do
for k:=1 to n do
begin
writeln('vvedite elementy ',i,' stroki ',k,' stolbca');
readln(a[i,k]);
end;
clrscr;
writeln('Ishodnaya matrica');
writeln;
for i:= 1 to m do
begin
for k:=1 to n do
write(a[i,k]:8:2);
writeln;
writeln;
end;
for k:=1 to n do  begin
kol:=0;
pr:=1;
for i:=1 to m do  begin
pr[k]:=pr[k]*a[i,k];
end;
for k:=1 to n do
if pr[k]>0 then begin
k:=k+1;
 end;
writeln('proizvedenie stolbcov ravny');
writeln;
for k:=1 to n do
write(a[i,k]:8:2);
writeln;
writeln;
for k:=1 to n do
writeln('kol-vo stolbcov s pologit elementami', k);
write(k:2);
end;
readln;
end.

[Stilet]

pr[k]:=pr[k]*a[i,k];

Это однозначно ошибка. pr у тебя не массив
посему pr:=pr*a[i,k];

[jaw]

pr я обозначила как массив, но почему не считает произведение?

[Jeni]

Тогда непонятна строка pr:=1; Может это должна быть какая-то другая переменная? Кроме того, переменная k используется одновременно и во внешнем и во вложенном циклах, надо использовать разные переменные.

[puporev]

У вас настолько сумбурно написан код, что очень трудно объяснять ошибки.
Поэтому посмотрите как можно сделать.
Если мы начинаем считать количество нужных столбцов, то начальное значение нужно поставить пере циклом.
kol:=0;
for k:=1 to n do
begin
Сейчас мы начинаем вычислять произведения в столбцах, задаем начальное значение=1.
pr:=1;
for i:=1 to m do
begin
pr:=pr*a[i,k]; //подсчитали один столбец и закончили
end;
if pr>0 then kol:=kol+1;//если произведение положительное, то добавляем единичку
writeln('pr v stb ',k,'=',pr:5:2);//выводим сведения об этом столбце на экран
end;
writeln('kol+=',kol);//выводим количество таких столбцов
readln;
end.
Если нам дальше нужно что-то делать с этими произведениями, то нужно было собрать их в массив.
if pr>0 then kol:=kol+1;
b[kol]:=pr;
А потом вывести эти произведения в цикле из массива
for i:=1 to kol do
write(b[i]:8:2);

[jaw]

Спасибо!но теперь считает произведение только первого столбца,а количество с положительными элементами не считает...