Много дана матрица, содержащая как положительные, так и отрицательные элементы размером n на m. сформируйте из заданой матрицы новую удалить все строки, содержащие только положительные элементы.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,m,-10,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var L:=new List<integer>; // для номеров подходящих строк
  for var i:=0 to n-1 do
    if a.Row(i).Any(t->t<=0) then L.Add(i);
  n:=L.Count;
  if n=0 then begin
    Writeln('Все строки содержат только положительные элементы');
    exit
    end;
  var b:=new integer[n,m];
  for var i:=0 to n-1 do
    b.SetRow(i,a.Row(L[i]));
  Writeln('*** Результирующая матрица ***');
  b.Println(4)
end.

Пример
Количество строк и столбцов в матрице: 5 4
*** Исходная матрица ***
  12  -9  64  34
  53  64  49  74
  33  27  -6  72
  91  14  23  16
  15  64   9  77
----------------
*** Результирующая матрица ***
  12  -9  64  34
  33  27  -6  72

Алгоритм
1) a x a = a² ⇒ b;    b x a = a³ ⇒ результат
2) a x a = a² ⇒ b;    b x b = a⁴ ⇒ c;   c x c = a⁸ ⇒ c;   c x b = a¹⁰ ⇒ результат

Программа на языке PascalABC.Net
var
  a,b,c,y:real;
begin
  Write('Введите число: '); Read(a);
  b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
  c:=b*b; c:=c*c; y:=b*c;
  Writeln('Десятая степень числа равна ',y)
end.

Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024

Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574

1) Как представлено число 8310 в двоичной системе счисления?
В этом вопросе нет ни одного числа двоичного кода. В двоичном коде будет: 10000001110110
2) Дано: , . Какое из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству ? Я думаю, что вопрос звучал так: Дано: a=222 8 , b=94 Какое из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству?ответ:2)  С = 250(8сч) удоволетворяет неравенству а=247 меньше С=250 и b= 251 больше С=250.
3) Даны 4 целых числа, записанные в двоичной системе...
ответ: все четыре числа меньше чем 396
4) Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 39 оканчивается на 3.
ответ: 4, 6, 9, 12, 18, 36
5) Запись числа 30 в некоторой системе счисления выглядит так: 110N. Найдите основание системы счисления N.






6) Решить уравнение: где????????????????
7) Сколько единиц в двоичной записи числа 42016 + 22018 – 6?
Я не смог решить
8) Значение арифметического выражения: 274 – 95 + 38 – 25 записали в системе счисления с основанием 3. Сколько цифр «2» содержится в этой записи?
Я не смог решить