Философия

Платон и Аристотель


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.


смотреть на рефераты похожие на "Платон и Аристотель"