Var a:array of real;
k,i,n:integer;
min,minr:real;
begin;
min:=2147483647;
write('Введите размерность массива:');
readln(n);
setlength(a,n+1);
for i:=1 to n do
begin;
readln(a[i]);
if a[i]=0 then inc(k);
end;
if k<2 then
begin;
writeln('Final array:');
for i:=1 to n do
begin;
a[i]:=a[i]/2;
write(a[i]:4);
end;
end
else
begin;
for i:=1 to n do
if abs(a[i])<min then
begin;
min:=abs(a[i]);
minr:=a[i];
end;
write('Result:',minr);
end;
<span>end.</span>
Ответ:
1 * 10^4 + 4 * 10^3 + 3 * 10^2 + 6 * 10^1 + 4 * 10^0
Объяснение:
Ответ:
f(x)=\frac{A_0}{2}+A_n\cos\left(\frac{2n\pi x}{\nu}-\alpha _n\right)
Объяснение:
Картинка прилагается.
Var
A,B:integer;
C,H:Char;
Begin
For B:= 1 to 15 do
Begin
For A:= 1 to 15 do
Begin
Case (A*B) mod 16 of
0:H:='0';
1..9:H:=Chr(((A*B)mod 16)+48);
10:H:='A';
11:H:='B';
12:H:='C';
13:H:='D';
14:H:='E';
15:H:='F';
End;
Case (A*B)div 16 of
0:C:='0';
1..9:C:=Chr(((A*B)div 16)+48);
10:C:='A';
11:C:='B';
12:C:='C';
13:C:='D';
14:C:='E';
15:C:='F';
End;
Write(C+H,' ')
End;
WriteLn
End
End.