Лабы / 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.