написать программу в паскале

[Julichka1k]

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

[Kartush]

И что не получается?
Показывайте ваш код, разберёмся.

[Julichka1k]

program lab_2;
var a:array[1..5,1..5] of real;
n,m,i,j,k,c:byte;
p:real;
begin
writeln('Ââåäèòå êîëè÷åñòâî ñòðîê ìàòðèöû');
readln(n);
writeln('Ââåäèòå êîëèåñòâî ñòîëáöîâ ìàòðèöû');
readln(m);
writeln('Ââåäèòå ýëåìåíòû ìàòðèöû');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln('Äàííàÿ ìàòðèöà');
{Âûâîä ìàòðèöû}
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
writeln('Êîëè÷åñòâî ïîëîæèòåëüíûõ ýëåìåíòîâ â óêàçàííîé ñòðîêå ìàòðèöû');
writeln('ââåäèòå ñòðîêó');
readln(i);
begin
k:=0;
for j:=1 to m do
if a[i,j] > 0 then
inc(k);
writeln('Ñòðîêà ',i,' ýëåìíòîâ ',k);
end;
writeln('ââåäèòå ñòîëáåö');
readln(j);
writeln('ââåäèòå ñóììó óêàçàííîãî ñòîëáöà');
readln(c);
writeln('ómíîæåíèå ýëåìåíòîâ óêàçàííîãî ñòîëáöà íà ÷èñëî ýëåìåíòîâ ñòðîêè');
begin
p:=p+k*a[i,c];
writeln(p);
end;


end.


(не получается поремножить указанный столбец, на на число положительных элементов)
только русские буквы в непонятном виде из паскаля скопировались

[Mad_Cat]

for i:=1 to n do
a[i,c]:=k*a[i,c];

a

begin
p:=p+k*a[i,c];
writeln(p);
end;

убрать)

[Julichka1k]

program lab_2;
var a:array[1..5,1..5] of real;
n,m,i,j,k,c:byte;
p:real;
begin
writeln('ВВедите количество строк');
readln(n);
writeln('введите количество столбцов');
readln(m);
writeln('введите элементы матрици');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln('данная матрица');
{Вывод матрици}
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
writeln('Колличество положительных элементов данной строки');
writeln('введите строку');
readln(i);
begin
k:=0;
for j:=1 to m do
if a[i,j] > 0 then
inc(k);
writeln('строка ',i,' элементов ',k);
end;
writeln('введите столбец');
readln(j);
writeln('сумма указанного столбца');
readln(c);
writeln('умножение элементов');
begin
p:=p+k*a[i,c];
writeln(p);
end;


end.

как найти сумму столбца =( я тут везде запуталась!