===== 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.
Это не шифр цезаря это Атбаш
Зачастую играм, особенно современным, не достаёт характеристик пользовательского компьютера: оперативной памяти, видеопамяти, тактовой частоты процессора и видеопроцессора, места на диске, нормального монитора и т. д. Вот и не запустишь, по-крайней мере, нормально не поиграешь в них на слабых машинах.
6 раз, например первые 4 это яблоки а остальные 2 апельсины