using System;
namespace NoNamespace.Task029 {
//Напишите консольное приложение на C#, находящее пару чисел меньше N,
//сумма цифр которых одинакова, и сообщающее, если таких чисел нет
internal class Program {
private static void Main() {
Console.WriteLine("Введите N");
var n = int.Parse(Console.ReadLine());
var sums = new int[n];
sums[0] = 1;
for (var i = 1; i < n; i++) {
sums[i] = NumberSum(i);
}
var found = false;
for (var i = 1; i < n; i++) {
if (sums[i] == 0) continue;
for (var j = i + 1; j < n; j++) {
if (sums[i] != sums[j]) continue;
Console.WriteLine($"Number sum {i} and {j} = {sums[i]}");
found = true;
}
}
if (!found)
Console.WriteLine("Nothing found");
Console.ReadKey();
}
private static int NumberSum(int number) {
var sum = 0;
while (number > 0) {
sum += number % 10;
number = number / 10;
}
return sum;
}
}
}
type Mas=array[1..30]of integer;
var i,Value:integer;
begin
for i:=1 to 30 do //заполняем последовательность
readln(Mas[i]);
//ищем максимальное значение
Value:=Mas[1];
for i:=2 to 30 do
if Mas[i]>Value then
Value:=Mas[i];
//умнажаем на максималку все положительные числа
for i:=1 to 30 do
if Mas[i]>0 then
Mas[i]:=Mas[i]*Value;
//вывод значений массива
for i:=1 to 30 do
write(Mas[i]," ");
readln;
end.