матрицы паскаль

[Кирилл17]

дана матрица А(4,5). отпечатать среднее арифметическое отрицательных элементов каждого столбца матрицы.

program p1;
uses crt;
const n=4;
const m=5;
var A:array [1..n,1..m] of real;
s,p,sr:real;
i,j:integer;
begin
writeln('vvedite el mas');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for j:=1 to m do
begin
s:=0;
p:=1;
end;
for i:=1 to n do
begin
s:=s+A[i,j];
p:=p*A[i,j];
end;
if s>p then a[j]:=1 else a[j]:=0;
s:=0;
for i:=1 to m do
for j:=1 to n do
s:=s+a[i,j];
writeln('s=',s);
sr:=s/(m*n);
writeln('sr=',sr);
end.

ставит ошибку 26 перед else

[Sm1Le]

у тебя А это двумерный массив, а ты указал только один параметр ...

[Кирилл17]

if s>p then a[i,j]:=1 else a[i,j]:=0;
если я сделаю так то программа будет считать сумму и среднее арифметическое всей матрицы а мне нужно только отрицательные элементы столбцов

[Sm1Le]

Сообщение от Кирилл17

ставит ошибку 26 перед else

Я ответил про ошибку а не про то что ты написал ... Так что задавай нормальный вопрос!

[Sm1Le]

Сообщение от Кирилл17

program p1;
uses crt;{и зачем ты его тут прописал и не исп. ? }
const n=4;
const m=5;
var A:array [1..n,1..m] of real;
s,p,sr:real;
i,j:integer;
begin
writeln('vvedite el mas');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for j:=1 to m do
begin
s:=0;
p:=1;
end;{ и что ты этим делаешь ?- мдя .. }
for i:=1 to n do
begin
s:=s+A[i,j];
p:=p*A[i,j];
end;
if s>p then a[j]:=1 else a[j]:=0;
s:=0;
for i:=1 to m do
for j:=1 to n do
s:=s+a[i,j];
writeln('s=',s);
sr:=s/(m*n);
writeln('sr=',sr);
end.

я Вообще не могу понять Что ты написал ... Оо