Решите задачи на паскале/питоне или C++
Ответы
Ответ:
Задачи на паскале в объяснении
Объяснение:
задача 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.
