Материалы сайта
Это интересно
Платон и Аристотель
program MAXIMUM; uses crt; const N=3; type matrix=array[1..N,1..N] of real; var c:matrix; max1,max2:real; i,y,ymax1,ymax2:integer; begin clrscr; writeln ('Введите матрицу'); for i:=1 to n do for y:=1 to n do begin readln(c[i,y]); end; max1:=c[1,1]; ymax1:=1; for i:=1 to n do begin y:=i; if max1max2 then begin writeln(max1:8:2); for y:=1 to n do begin writeln(c[ymax1,y]:8:2); end; end else writeln(max2:8:2); for y:=1 to n do begin writeln(c[ymax2,y]:8:2); end; end.