назад

                                

 program a42316;
uses crt;
type mas=array[1..50,1..50] of byte;
var na,k,maxx:byte; a:mas;
procedure vvod(var x:mas; var nx:byte);
var i,j:byte;
begin

writeln('введите число Н');
readln(nx);
for i:=1 to nx do
for j:=1 to nx do
begin
writeln('введите элемент');
readln(x[i,j]);
end;
end;
function max(max:byte; x:mas; nx:byte; var k:byte):byte;
var i:byte;
begin i:=1;
max:=x[i,i];
for i:=2 to nx do
if max<x[i,i] then max:=x[i,i];
k:=max;
end;
begin clrscr;
sound(4000); delay(20);
window(1,1,50,50);
vvod(a,na); textcolor(4); nosound;
max(maxx,a,na,k);
writeln(k); readkey;
end.