<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Положительных элементов- ',a.Where(x->x>0).Count)
end.
<u>Пример</u>
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8
Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
Ответ:
173₁₀ = = 173₁₀
173₁₀ = 5*8⁰ + 5*8¹ + 2*8² = 255₈
A2₁₆ = 2*16⁰ + A*16¹ = 162₁₀
162₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100010₂
Объяснение:
желательно указывать также основание исходных чисел
n - кол-во элементов в массиве, a[] - сам массив.
Алгоритм работает в тупую за O(n²)
Вот весь алгоритм:
for (int i = 0; i < n; i++) {
for (int j = i - 1; j >= 0; j--) {
int flag = 1;
if (a[j] == a[i]) {
flag = 0;
break
}
if (flag)
a[i] = 0;