суммы элементов верхней треугольной матрицы ?

[shark2010]

Помогите с заданием......


Вычислить суммы элементов верхней треугольной матрицы для матриц A(10, 10), В(15,15).

[Gambler]

В чем проблема? Что сделали?

[shark2010]

Проблема в том что я в них ничего не понимаю, написал вот такую штуку. Даже не знаю правильная она или нет! может вы подскажите?

uses crt;
const n=10;
      t=15
type Tmatr1=array[1..n,1..n] of integer; {тип матрица 10х10}
     Tmatr2=array[1..t,1..t] of integer; {тип матрица 15х15}
var a:Tmatr1;  {первая матрицы}
    b:Tmatr2;  {вторая матрицы}
    i,j:integer; {счетчики по строкам и столбцам}
Procedure Vvod(var m:Tmatr1;u:Tmatr2);  {ввод матриц}
begin
for i:=1 to n do
for i:=1 to t do
   begin
     for j:=1 to n do
     for j:=1 to t do
       begin
         m[i,j]:=random(10);
         u[i,j]:=random(15);
         write(m[i,j]:3);
         write(u[i,j]:3);
       end;
    writeln;
  end;
end;
Function Summ(m:Tmatr1;u:Tmatr2;):integer;  {подсчет суммы в верхнам треугольнике}
var rez:integer;                            {стороны треугольника: строка 1, верхние половинки}
begin                                       {главной и побочной диагоналей}
rez:=0;
for i:=1 to n div 2 do
for j:=i to n-i+1 do
  for i:=1 to t div 2 do
  for j:=i to t-i+1 do

rez:=rez+m[i,j];
Summ:=rez;
end;
begin
clrscr;
randomize;
Writeln('Matrica A:');
Vvod(a);
Writeln('Summa v matrice A=',Summ(a));
readln;
Writeln('Matrica B:');
Vvod(b);
Writeln('Summa v matrice B=',Summ(b));
readln;
end.

[ROMA2PVT]

Uses
 CRT;
Const
 k=5;
 l=6;
type
 mas=array [1..20,1..20] of integer;
var
 a,b:mas;
 n,i,j,sum:integer;

procedure formir(Var m:mas;c:integer;s:char);
 begin
  randomize;
  writeln('Матрица ',s,' :');
   for i:=1 to c do
   begin
    for j:=1 to c do
    begin
     m[i,j]:=random(10)+3;
     write(m[i,j]:3);
    end;
   writeln;
   end;
end;

procedure treug(Var m:mas;c:integer;s:char);
 begin
  sum:=0;
   for i:=1 to c do
   begin
    for j:=1 to c do
     if i<=j then
      begin
       sum:=sum+m[i,j];
      end;
   end;
writeln('Сумма элементов матрицы',s,':=',sum);
end;
 
begin
 Clrscr;
 formir(a,k,'A');
 formir(b,l,'B');
 treug(a,k,'A');
 treug(b,l,'B');
readkey
end.

[shark2010]

извините, может я чего-то не понимаю. мне показалось что это А(5:5),В(6:6), или я ошибаюсь?

[ROMA2PVT]

извините, может я чего-то не понимаю. мне показалось что это А(5:5),В(6:6), или я ошибаюсь?

Измените размерность на ту которая вам нужна

[shark2010]

ок разобрался! Большое спасибо за участие.!!!! Всем +1

[shark2010]

Может с меню кто нибудь поможет ? http://www.programmersforum.ru/showthread.php?t=113312