Пожалуйста посчитайте задачи на паскале/питоне или C++
Задачи на паскале в объяснении
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.
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.
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.
