1, y1);
writeln ('Vivod dannix');
x1: = 4;
y1: = y1 +2;
for i: = 1 to n do max [i]: = 0;
for k: = 1 to n do
for i: = 1 to n do
if abs (a [i, k])> max [k] then
max [j]: = abs (a [i, k]);
Gotoxy (x1, y1);
writeln ('Vvivod matrichi B [i, k]');
x1: = 4;
y1: = y1 +1;
for i: = 1 to n do
begin
writeln;
for k: = 1 to n do
begin
b [i, k]: = a [i, k]/max [k];
write (B [i, k]: 5:2);
end;
end;
readkey;
end;
{END OF ZADAN2 *******************************************}
begin
Forma1;
clrscr;
second: = 0;
while second <> 3 do
begin
Menu;
readln (second);
case second of
1: zadanie1;
2: zadanie2;
3: exit;
end;
end;
end.
