// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.
Клетки - 6 букв.Я думаю так!
Нужно умножить стороны треугольника
// Подсчитать количество нечетных чисел в заданном числе.
using System;
class Program
{
static void Main()
{
var n = System.Convert.ToInt32(Console.ReadLine());
Console.WriteLine(CountUnevens(n));
Console.ReadKey();
}
static int CountUnevens(int x)
{
var i = 0;
while (x > 0)
{
var m = x % 10;
x = (x - m) / 10;
i += (m % 2 == 1) ? 1 : 0;
}
return i;
}
}