задан одномерный целочисленный массив размерности 10 вывести на экран номера положительных элементов этого массива pascal

--- PascalABC.NET 3.6.3 ---

begin

 var A := ArrRandom(10, -99,99);

 A.Println;

 A.Indices.ForEach(p -> begin if A[p] > 0 then println(p+1) end);

end.

beginArrRandom(10,-99,99).Println.ToArray.Indices(x->x>0).Select(i->i+1).Printend.

Пример работы:

1. Число не меньше 50 и четное: 50

2. Опечатка, вероятно. Либо наибольшее X - тогда 99, либо наименьшее натуральное x, и тогда это будет 1, либо НЕ меньше 100, тогда 101

3. Немного запутано, но по идее: число должно быть четным и меньше 10. Максимальное такое число: 8

4. X больше либо равен 7, или x меньше 6. Единственное число, которое НЕ подходит под эту формулу: 6

10. Обычное уравнение вида При том что n только натурален. Очевидно, что n = 2

17. Надо просмотреть каждую пару чисел и поставить плюсик, если первое больше 15 или второе больше 9. Я загнул пять пальцев, лучше меня перепроверить

25. У эсминца всего 2500 из которых 500 принадлежат также и фрегату. А всего-всего их 4500. Значит ТОЛЬКО эсминцу принадлежат 2000, ТОЛЬКО фрегату тоже 2000, а фрегату всего 2000+500 = 2500. Я понимаю, что ничего из этой писанины понять невозможно, так что прилагаю картиночку, написанную замороженной куриной лапой.

45. Столько писанины, а проще взять листочек в клеточку и самому побыть роботом, исполняя команды. Если у меня все верно, то за один цикл получается общее смещение на 1 вверх и 1 вправо. Значит за 5 циклов будет смещение (5,5) и чтоб переместиться в начало надо дать команду (-5,-5)

53. Третья строчка аналогична: a = 2*4 + 7*3. Любой второклассник скажет, что это 29. Четвертая строчка аналогична: b = 30-29 = 1. Таким образом, у нас a = 29, b = 1. А просят найти именно b. В ответ пишем 1

Const x0=-10; xk=13; h=0.5;
var x,y:real; i,n:integer;
begin
n:=round((xk-x0)/h)+1;
x:=x0-h;
for i:=1 to n do
 begin
 x:=x+h;
 if x<>7
  then begin y:=(x*x*x+5*x-8)/(x-7); writeln(x:5:1,'  ',y:8:3); end
  else writeln(x:5:1,'  функция не определена');
 end;
end.

Результат (для h=1.0):
-10.0    62.235
 -9.0    48.875
 -8.0    37.333
 -7.0    27.571
 -6.0    19.538
 -5.0    13.167
 -4.0     8.364
 -3.0     5.000
 -2.0     2.889
 -1.0     1.750
  0.0     1.143
  1.0     0.333
  2.0    -2.000
  3.0    -8.500
  4.0   -25.333
  5.0   -71.000
  6.0  -238.000
  7.0  функция не определена
  8.0   544.000
  9.0   383.000
 10.0   347.333
 11.0   344.500
 12.0   356.000
 13.0   375.667