Задачи по матрицам

[Алёночка]

Задачи по матрицам

Помогите пожалуйста решить, не понимаю их:tehnari_ru_121:

 

[Vladimir_S]

Помогите пожалуйста решить, не понимаю их

Ох, Алёночка, всыпать бы Вам розг за бездельничанье в течение семестра, причем как у Помяловского - "на воздусях" (это когда два бурсака держат наказуемого за руки и за ноги на весу, а третий порет)! Ну да времена не те, так что что уж тут поделаешь... Ладно:
1. Про реагент. Поскольку из условия задачи абсолютно не ясно, что собой изображают строки матрицы (разные реагенты? расход? и т.п.), то можете от моего имени передать гению, составившему методичку, что он (она) - гений.
2. Про треугольнички:

Const
 N=30;
Var
 A,B,C,P:Array[1..N] of Integer;
 i,Nt:Integer;
Begin
 Nt:=0;
 for i:=1 to N do P[i]:=0;
 Randomize;
 for i:=1 to N do
  begin
   A[i]:=Random(10)+1;
   B[i]:=Random(10)+1;
   C[i]:=Random(10)+1;
  end;
 for i:=1 to N do
  if ((A[i]+B[i])>C[i]) and
     ((A[i]+C[i])>B[i]) and
     ((B[i]+C[i])>A[i]) then
   begin
    Nt:=Nt+1;
    P[i]:=A[i]+B[i]+C[i];
   end;
 Writeln('Number of triangulars is ',Nt);
 Writeln('Their perimeters are:');
 for i:=1 to N do
  if P[i]>0 then write(P[i]:4);
 Readln
End.

3. Про квадратную матрицу и ее половины (над и под главной диагональю):

Const
 N=15;
Var
 A:Array[1..N,1..N] of Integer;
 Sums:Array[1..N] of Integer;
 i,j,N_h,N_l,S_h,S_l:Integer;

Begin
 S_h:=0;
 S_l:=0;
 N_h:=0;
 N_l:=0;
 for i:=1 to N do Sums[i]:=0;
 Randomize;
 for i:=1 to N do
  begin
   write('     ');
   for j:=1 to N do
    begin
     A[i,j]:=Random(20);
     write(A[i,j]:4);
    end;
   writeln;
  end;
 writeln;
 write('Sum: ');
 for j:=1 to N do
  begin
   for i:=1 to N do
    Sums[j]:=Sums[j]+A[i,j];
   write(Sums[j]:4);
  end;
 writeln;
 writeln;
 for i:=1 to N do
  for j:=1 to N do
   begin
    if (j>i) and (A[i,j]>A[i,i]) and (A[i,j]<A[j,j]) then
     begin
      N_h:=N_h+1;
      S_h:=S_h+A[i,j];
     end;
    if (j<i) and (A[i,j]>A[i,i]) and (A[i,j]<A[j,j]) then
     begin
      N_l:=N_l+1;
      S_l:=S_l+A[i,j];
     end;
   end;
 If N_h>0 then write('Medium high = ',S_h/N_h:0:5);
 If N_l>0 then write('     Medium low = ',S_l/N_l:0:5);
 Readln
End.

4. Про матрицу и вектор:

Const
 N=5;
Var
 A:Array[1..N,1..N] of Integer;
 X:Array[1..N] of Real;
 i,j,Sum:Integer;

Begin
 Sum:=0;
 Randomize;
 Writeln('Matrix A:');
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=-5+Random(20);
     write(A[i,j]:8);
    end;
   writeln;
  end;
 for i:=1 to N do
  Sum:=Sum+A[i,N];
 writeln;
 If Sum<=0 then writeln('Sum is negative or zero!')
 else
  begin
   writeln('Array X:');
   for i:=1 to N do
    begin
     X[i]:=0;
     for j:=1 to N do
      X[i]:=X[i]+A[i,j];
     X[i]:=X[i]/N;
     write(X[i]:8:3);
    end;
  end;
 Readln
End.