program lol; var x,a,b,d,y,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16:real; begin writeln('Введите значения'); readl
Злой но справедливый
program lol;
var y,h1,h2,h3,h4,h5,h6:real;
x,a,b,d:integer;
function pow(x:real; n:integer):real;
var sign:integer;
begin
if (x<0) and (n mod 2 <> 0) then sign := -1 else sign := 1;
pow := sign * exp(ln(abs(x))*n);
end;
begin
writeln('Введите значения');
{readln(x,a,b,d); }
x:=2;a:=1;b:=3;d:=3;
h1:=x*x*x*a*a;
h1:=3*pow(cos(h1),x);
h2:=x-pow(b,5);
h2:=pow(sin(h2),4);
h2:=abs(5*a*h2);
h2:=pow(sin(h2),2*x);
h2:=h1+h2;
h3:=a-pow(d,4);
h4:=abs(h3);
h5:=pow(sin(x+6),3);
h5:=7*a+h5;
h5:=sqrt(h5);
h5:=h4*h5+d;
h5:=sqrt(h2/h5);
h6:=pow(sin(x),3);
writeln(h1,h2,h3,h4,h5,h6);
y:=h5*h6;
writeln('y= ',y);
end.
накрутил ты там короче
а основная ошибка была в том что нельзя брать логорифм от отрицательного числа
То что они расположены по году выпуска, от старых к новым (Windows 10 новая последняя)
Const nx=30;
var i,j,n,m,q,r:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;
begin
Write('Введите размер массива ');Readln(n);min:=100;
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=random(100)-2;write(A[i,j]:4);m:= m + A[i,j];end;writeln;end;
Sn:= m/n/n;write(m:9,Sn:9:4);writeln;
for i:=1 to n do begin
for j:=1 to n do begin
d:=abs(sn - A[i,j]);
if d < min then begin r:=i; q:=j; min := d;end;end;end;
write(A[r,q]:4,r:4,q:4);
<span>end.</span>
Не знаю какой конкретно язык нужен (напишу в общих чертах)
A - массив
нужно лишь одно условие
for i=1 to 12 do
if A[i]>A[i+1] then print A[i+1]