begin
var L := ReadSeqInteger('Вводите:', ReadInteger('N=')).ToList;
L.Println; // исходная
var k := L.OrderDescending.Skip(1).First; // после чего вставить
var A := ReadInteger('Что вставляем?');
L.Insert(L.IndexOf(k) + 1, A);
L.Println; // после вставки
k := L.Max;
var ai := L.ToArray.IndexesOf(t -> t = k).ToArray;
if ai.Count > 1 then
begin
L.RemoveAt(ai[1]);
L.Println; // после удаления, если оно было
end;
L := L.SortedDescending.ToList;
L.Println // после сортировки
end.
using System;
//6,
//28,
//496,
//8128,
//33550336
internal class Program {
private static void Main() {
var max = 0L;
var quantity = 0;
Console.WriteLine("Введите последовательность. Для окончания введите ноль");
do {
var n = long.Parse(Console.ReadLine());
if (n == 0)
break;
if (max == n)
quantity++;
else if (n > max && IsIdealNumber(n)) {
max = n;
quantity = 1;
}
} while (true);
Console.WriteLine($"max = {max}, кол-во = {quantity}");
Console.ReadKey();
}
private static bool IsIdealNumber(long number) {
var sum = 1L;
for (var i = 2L; i <= number / 2; i++) {
if (number % i != 0)
continue;
sum += i;
if (sum > number || number < 0)
break;
}
Console.WriteLine($"number = {number}, sum = {sum}");
return sum == number; //зачем выдумывать нолики и единички если давно придуманы буленовские переменные
}
}
