Question

Помогите написать программу на Паскале плиз:
№11 и 12

Answer 1

11.var ma:array of array of integer;
m,n,maxi,maxj,max,i,j,maxr:integer;
begin;
randomize;
readln(n);
readln(m);
max:=-214;
setlength(ma,n+1);
for i:=1 to n do
setlength(ma[i],m+1);
writeln('Matrix:');
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to m do
    begin;
     ma[i,j]:=random(41)-20;
     write(ma[i,j]:4);
     if abs(ma[i,j])>max then
      begin;
       max:=abs(ma[i,j]);
       maxr:=ma[i,j];
       maxi:=i;
       maxj:=j;
      end;
    end;
 end;
writeln;
writeln('Max:',maxr,' столбец:',maxj,' строка:',maxi);
end.
12.var x,y,d,z:real;

function max(a,b:real):real;
begin;
if a>b then max:=a else max:=b;
end;

function min(a,b:real):real;
begin;
if a<b then min:=a else min:=b;
end;

begin;
readln(x);
readln(y);
readln(d);
z:=(max(x,y)+15*x)/(1.1+sqr(max(x-d,y-d)))-1;
writeln(z);
end.