Лабы / Pascal.1.курс / part 1 / вариант 22 / lab8

program lab8;
uses crt;

const
   modul=10;

type
   matrix=array[1..3,1..5] of integer;

var
   a,b: matrix;

procedure initmatrix(var m:matrix);
var
   i,j: integer;
begin
   for i:=1 to 3 do begin
      for j:=1 to 5 do begin
         m[i,j]:=-modul+random(2*modul);
         write(m[i,j]:4);
      end;
      writeln;
   end;
   writeln;
end;

function summa(m: matrix):real;
var
   i,j:integer;
   s:real;
   max:array[1..5] of integer;
begin
   for i:=1 to 5 do begin
      for j:=1 to 3 do begin
         if m[j,i]>max[i] then max[i]:=m[j,i];
      end;
   end;

   for i:=1 to 5 do begin
      s:=s+max[i]/max[6-i];
   end;
   summa:=s;

end;

begin
   clrscr;
   randomize;

   writeln('Matrix A');
   initmatrix(a);

   writeln('Matrix B');
   initmatrix(b);

   writeln('s=',summa(a):5:3,'; t=',summa(b):5:3);
end.