Begin25. найти значение функцииy = 3·x6 – 6·x2 – 7 приданном значенииx. java

Program _9; type marr = array [1..100,1..100] of real; procedure p1(var x: marr; r1,r2: integer); var i,j: integer; begin for i: =1 to r1 do   begin   for j: =1 to r2 do   begin     x[i,j]: =random(10);     write(x[i,j]: 4);   end;   writeln;   end; end; function f1(var x: marr; r1,r2: integer): integer; var i,j,k: integer; begin k: =0; for i: =1 to r1 do   for j: =1 to r2 do     if (x[i,j]> =0)and(x[i,j]< =1) then k: =k+1; f1: =k; end; var a,b: marr; n,m,s,d: integer; begin  randomize;   writeln('n,m: '); readln(n,m); writeln('первая таблица: '); p1(a,n,m); writeln('s,d: '); readln(s,d); writeln('вторая таблица: '); p1(b,s,d); writeln('k1 = ',f1(a,n,m)); writeln('k2 = ',f1(b,s,d)); end.

Const n=6; m=4; var  a: array[1..n,1..m] of integer; i,j,c: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin   a[i,j]: =random(50);   write(a[i,j]: 4);   end;   writeln;   end; for j: =1 to m do   begin   c: =a[3,j]; a[3,j]: =a[5,j]; a[5,j]: =c;   end; writeln('полученный массив: '); for i: =1 to n do   begin   for j: =1 to m do write(a[i,j]: 4);   writeln;   end; end. пример: исходный массив:   25   4   33   17   19   23   42   9   36   40   1   48   21   44   13   18   38   29   8   7   24   13   5   13 полученный массив:   25   4   33   17   19   23   42   9   38   29   8   7   21   44   13   18   36   40   1   48   24   13   5   13