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

[uHkBu3uTop]

1.вычислить сумму элементов матрицы А(5х5),расположенных над главной диагональю(i<j);

2. найти min элемент каждого столбца матрицы А(4х6) и записать его в масив y

3.Дана матрица А(mхn),элементы матрицы В формируются по закону В[i,j]=1-cos(i+j), вычислить матрицу С,которая С=А*(В-Е)

[spein]

1:

for i:=1 to (5 - 1) do
  sum:=sum + a[i+1, i];

2 - делается легко. в интернете есть.
3 надо вспоминать умножение матриц...оно там жутко закручено делается...

[deathNC]

2.

var
  i, j, min: Integer;
  matrix: Array [1..4, 1..6] of Integer;
  y: Array[1..4] of Integer;
begin
  Randomize;
  // заполнение матрицы
  for i := 1 to High(matrix) do
    for j := 1 to high(matrix[1]) do
      matrix := Random(256);
  // нахождение минимальных элементов их запись в Y:
  for i := 1 to 4 do
    begin
      min := 1;
      for j := 2 to High(matrix[i]) do
        If matrix[i, j] > matrix[i, min] then
          min := j;
      y[i] := matrix[j];
    end;
  // ну а выведешь сам куда надо
  ...
end;

[deathNC]

3. (с инета скопипастил)

uses crt;
const
n=4;
m=3;
type
matr=array[1..n,1..m] of integer;
procedure Vvod(var mt:matr;x:integer;c:char);
var i,j:integer;
begin
writeln('Введите ',x*m,' элементов матрицы ',c,':');
for i:=1 to x do
for j:=1 to m do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
end;
procedure Vyvod(var mt:matr;x:integer;c:string);
var i,j:integer;
begin
writeln('Mатрицa ',c,':');
for i:=1 to x do
 begin
   for j:=1 to m do
   write(mt[i,j]:4,' ');
   writeln;
 end;
end;
procedure UmnMatr(m1,m2:matr;x:integer;var m3:matr);
var p,j,i:integer;
begin
for p:=1 to x do
for j:=1 to m do
   begin
     m3[p,j]:=0;
     for i:=1 to m do
       begin
         m3[p,j]:=m3[p,j]+m1[p,i]*m2[i,j];
       end;
   end;
end;
var a,b,c,d:matr;
begin
clrscr;
Vvod(a,n,'A');
Vvod(b,m,'B');
clrscr;
Vyvod(a,n,'A');
Vyvod(b,m,'B');
UmnMatr(a,b,n,d);
Vyvod(d,n,'D=A*B');
UmnMatr(d,b,n,c);
Vyvod(c,n,'C=A*B*B');
readln
end.

[deathNC]

Только тут надо заменить ввод