Const n = 20;
<span>var a: array[1..n] of integer;
</span><span> i,k,minel: integer;
</span><span>begin
</span><span>//заполнение массива
</span><span>//и вывод массива на экран
</span><span> randomize;
</span><span> writeln('элементы массива:');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(50)-30;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> writeln;
</span><span>//обработка массива и вывод на экран
</span><span> minel:=a[1];
</span><span> for i:=2 to n do
</span><span> if (a[i]<minel) and (abs(a[i]) mod 2 > 0) then
</span><span> begin
</span><span> minel:=a[i];
</span><span> k:=i;
</span><span> end;
</span><span> writeln('номер элемента: ',k,' значение: ',minel);
</span><span>end.
</span><span>
</span>
begin
var a := 123456;
var s := a.ToString;
var Sum := s.Aggregate(0, (s, x) -> s + x.toDigit);
Print(Sum, Sum / s.Length)
end.
A = D7 в 16 = 215 в 10 = 11010111 во 2
b = 331 в 8 = 217 в 10 = 11011001 во 2
1) 11011001 во 2 = 217 в 10
2) 11011100 во 2 = 220 в 10
3) 11010111 во 2 = 215 в 10
4) 11011000 во 2 = 216 в 10
215 < 11011000 < 217
215 < 216 < 217
11010111 < 11011000 < 11011001
Var a,b,c:integer;
result:double;
begin
read(a,b,c);
result:=(a+b-c)/(a-b);
writeln(result);
end.
=B1+C3-D2
Все ссылки относительные, т.е. меняются при копировании.