Ответ:

Задачи на паскале в объяснении

Объяснение:

задача 1

program z1;

var x, f: real;

begin

writeln('введите х');

readln(x);

if x>=0 then f:=sqrt(x*x*x)  

else f:=sqr(x)/(sqr(x)-2);

writeln('f(x)=',f:10:2);

readln;

end.

задача 2

program z2;

const n=5, m=5;

var a:array[1..n, 1..m] of integer;

   i, j, s, p: integer;

begin

  RANDOMIZE;

for i:=1 to n do

           begin

              for j:=1 to m do

             begin

              a[i,j]:= random(11)+10;

              write(a[i,j]:5);

           end;

           writeln;

             end;  

p:=1;

s:=0;

for j:=1 to m do p:=p*a[1,j];

for i:=1 to n do s:=s+a[i,1];

writeln('сумма элементов первого столбца=',s);

writeln('произведение элементов первой строки=',p);

readln;

end.

Задача 3

program z3;

const n=5; m=5;

var a:array[1..n, 1..m] of integer;

   i, j, p, max, min: integer;

begin

  RANDOMIZE;

for i:=1 to n do

           begin

              for j:=1 to m do

             begin

              a[i,j]:= random(11)+10;

              write(a[i,j]:5);

           end;

           writeln;

             end;

p:=1;  

min:=a[1,1];

max:=min;

for i:=1 to n do

for j:=1 to m do

             begin

      if (a[i,j]<min) then min:=a[i,j];

      if (a[i,j]>max) then max:=a[i,j];

             End;

P:=min*max;

writeln('произведение максимального и минимального элемента=',p);

readln;

end.

begin

 // 1

 var x := ReadReal('x =');

 Println(x < 0 ? x * x / (x * x - 2) : x ** (1 / 3));

 // 2

 var a := MatrRandom(5, 5, 10, 20).Println;

 Println('Сумма по первой колонке равна', a.Col(0).Sum);

 Println('Произведение по первой строке равно', a.Row(0).Product);

 // 3

 var b := MatrRandom(5, 5, 10, 20).Println;

 var s := a.ElementsByRow;

 Println('Произведение максимального и минимального элементов:',

     s.Max * s.Min)

end.