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

[Babur4iK]

1. Написать программу решения следующей задачи: Вычислить и запомнить суммы положительных элементов каждой строки матриц A(6,6) и B(5,5).

нужна помочь ,чем сможете помогите!

[Secc]

ну и в чем проблема? показывайте ваши наработки..

[Babur4iK]

вообщем вот к матрице A(6,6)

uses crt;
type mas=array[1..6] of integer;
     matr=array[1..6,1..6] of integer;
procedure Vvod(var mt:matr;x:byte;c:char);
var i,j:byte;
begin
writeln('Ìàòðèöà ',c);
for i:=1 to 6 do
 begin
  for j:=1 to 6 do
   begin
    mt[i,j]:=random(20)-5;
    write(mt[i,j]:5);
   end;
  writeln;
 end;
end;
function Summ(v:mas;x:byte):integer;
var i:integer;
    s:integer;
begin
s:=0;
for i:=1 to 6 do
if v[i]>0 then s:=s+v[i];
Summ:=s;
end;
procedure Vektor(mt:mas;x:real;var v:mas;c:string);
var i:byte;
begin
writeln('Âåêòîð ',c);
for i:=1 to 6 do
 begin
  v[i]:=Summ(mt[i],6);{- вот здесь говорит ошибка нельзя преобразовать                        выражение типа  integer к типу array[1..6] of integer}
  write(v[i],' ');
 end;
writeln;
writeln;
end;
var a,b:matr;
    va,vb:mas;
begin
clrscr;
randomize;
Vvod(a,6,'A');
Vektor(a,6,va,'Va');
Vvod(b,5,'B');
Vektor(b,5,vb,'Vb');
readln
end.

[Stilet]

а так:

Summ(mas(mt[i]),6);

[Babur4iK]

пишет явное преобразование типа integer к массиву запрещено

[Utkin]

Ты передаешь элемент массива, а требуется весь массив.

v[i]:=Summ(mt,6);

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

[Babur4iK]

uses crt;
type mas=array[1..6,1..6] of integer;
matr=array[1..6,1..6] of integer;
procedure Vvod(var mt:matr;x:byte;c:char);
var i,j:byte;
begin
writeln('Ìàòðèöà ',c);
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
mt[i,j]:=random(20)-5;
write(mt[i,j]:5);
end;
writeln;
end;
end;
function Summ(v:mas;x:byte):integer;
var i,j:integer;
s:integer;
begin
s:=0;
for i:=1 to 6 do
for j:=1 to 6 do

if v[i,j]>0 then s:=s+v[i,j];
Summ:=s;
end;
procedure Vektor(mt:mas;x:real;var v:mas;c:string);
var i,j:byte;
begin
writeln('Âåêòîð ',c);
for i:=1 to 6 do
begin
v[i,j]:=Summ(mt,6);{- âîò çäåñü ãîâîðèò îøèáêà íåëüçÿ ïðåîáðàçîâàòü âûðàæåíèå òèïà integer ê òèïó array[1..6] of integer}
write(v[i,j],' ');
end;
writeln;
writeln;
end;
var a,b:matr;
va,vb:mas;
begin
clrscr;
randomize;
Vvod(a,6,'A');
Vektor(a,6,va,'Va');
Vvod(b,5,'B');
Vektor(b,5,vb,'Vb');
readln
end.

щас короче вывеел мне матрицу А ,а сумму не считает пишет выход за границы диапозона измения индекса 1..6

в чем проблема

[Utkin]

v[i,j]:=Summ(mt,6);

Не торопись, а то успеешь . Чему равно j в момент выполнения данной строчки? Поищи по тексту, и напиши, что нашел.

[Babur4iK]

понял по ходу я цикл по j не поставил
щас все получилось спасибо