===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
Ответ:
static void Main(string[] args)
{
int monthNumber;
Console.Write("Введите номер месяца: ");
monthNumber = Convert.ToInt32(Console.ReadLine());
if (monthNumber <= 12 && monthNumber >= 1)
{
if ((monthNumber == 12) || (monthNumber <= 2)) Console.Write("Время года - зима");
else if ((monthNumber >= 3) && (monthNumber <= 5)) Console.Write("Время года - весна");
else if ((monthNumber >= 6) && (monthNumber <= 8)) Console.Write("Время года - лето");
else if ((monthNumber >= 9) && (monthNumber <= 11)) Console.Write("Время года - осень");
}
else
{
Console.Write("Неверный номер месяца.");
}
Console.ReadKey();
}
Объяснение:
C#.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74
<span>begin
writeln(sqrt(sqr(arctan(sin(3.15/6.1)))+53.7));</span>end<span>.
Результат:
</span><span> 7.342366377041116e+00</span>