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

program mas;
uses crt;
var
a: array [1..5,1..5] of real;
m: array [1..5] of real;
b,c:real;
i,j,k,l,f:integer;
begin
clrscr;
randomize;
{------------------[‡ Ї®«­пҐ¬ ¬ ваЁжг б«гз ©­л¬Ё зЁб« ¬Ё]--------------------}
writeln('€б室­ п ¬ ваЁж ');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
repeat b:=random(100) until b<>0;
repeat
c:=-5+random(10)+random(100)/b;
f:=0;
for k:=1 to i do begin
for l:=1 to 5 do begin
if (k=i) and (l=j) then break;
if (a[k,l]=c) then f:=1;
end;
end;
until f=0;
a[i,j]:=c;
write(a[i,j]:4:1,' ');
end;
writeln;
end;
writeln;
{----------------------------[Џ®ЁбЄ Ё § ¬Ґ­ ]--------------------------------}
b:=a[1,1];
for i:=2 to 5 do begin
if a[i,i] > b then begin
b:=a[i,i];
k:=i;
end;
end;
a[k,k]:=a[1,1];
a[1,1]:=b;

writeln('€§¬Ґ­Ґ­­ п ¬ ваЁж ');
for i:=1 to 5 do begin
for j:=1 to 5 do write(a[i,j]:4:1,' ');
writeln;
end;
writeln;
{-----------------[Џ®ЁбЄ ¬Ё­Ё¬ «м­ле н«Ґ¬Ґ­в®ў ў бв®«Ўж е]-------------------}
writeln('ЊЁ­Ё¬ «м­лҐ н«Ґ¬Ґ­вл ў бв®«Ўж е');
for i:=1 to 5 do begin
b:=a[1,i];
for j:=2 to 5 do begin
if a[j,i]<b then b:=a[j,i];
end;
m[i]:=b; write(b:4:1,' ');
end;
end.