A) c: = sqr(35 div (18mod 5))+ frac (19/2) d) n: = trunc(sqrt( mod 4*5-15 div 4*2+0.5

А) c=130,5 d)  n=20729,5

Const m = 3; n = 3; var a: array[1..m, 1..n] of integer; i,j,max3: integer; begin   max3: =-maxint;   for i: =1 to m do begin       for j: =1 to n do begin           write('a[',i,',',j,']= ');           readln (a[i,j]);           if (a[i,j] mod 3 = 0)and (max3< a[i,j]) then               max3: =a[i,j];       end;   end;   writeln('максимальное кратное трем ',max3); end. тестовое решение: a[1,1]= -15 a[1,2]= 9 a[1,3]= 3 a[2,1]= 7 a[2,2]= -21 a[2,3]= 21 a[3,1]= 15 a[3,2]= -9 a[3,3]= 9 максимальное кратное трем 21

// pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin   var m,n: integer;   write('введите n и m: '); read(n,m);   var a: =matrixrandom(n,m,-25,19);   var max: =-26; // меньше возможного меньшего   for var i: =0 to n-1 do begin       for var j: =0 to m-1 do begin           write(a[i,j]: 4);           if a[i,j]> max then max: =a[i,j]           end;       writeln       end;   writeln('максимальный элемент равен ',max) end. тестовое решение: введите n и m: 5 8   -25  -3 -20  -8  -4 -21    9 -16     0  17    9 -22  10  15  -2  11   -1  17 -12 -15    0  -7  17 -16   -22  -9 -18    4  -4  -9    4 -16   -8 -17 -21  11  -4  -7 -12  13 максимальный элемент равен 17