Найти последний отрицательный элемент массива, величина которого не превышает заданной величины, возвести его в квадрат и поменять местами с предпоследним элементом массива. delphi p.s. консоль

{$APPTYPE CONSOLE}
Const
   n = 13;
Type
   Mass = array[1..n] of integer;

Procedure BbIBOD(Var A:Mass);
Var
   i:integer;
Begin
For i:= 1 to n do
    Write(' ',A[i])
End;

Function SWP(Var A:Mass; c:real):integer;
Var
   i,j:integer;
Begin
For i:= 1 to n do
   if (A[i] < 0)and(A[i] <= c) then j:=i;
if j <> 0 then
  Begin
  WriteLn('Искомый элемент: ',A[j],'[',j,']');
  A[j]:=Sqr(A[j]);
  i:=A[n-1];
  A[n-1]:=A[j];
  A[j]:=i;
  Write('Новый массив:');
  BbIBOD(A);
  End
else Write('В массиве нет отрицательных элементов')
End;

Var
   A:Mass;
   i:integer;
   c:real;
Begin
Randomize;
Write('Исходный массив(',n,'):');
For i:= 1 to n do
   A[i]:=random(2*n+1)-n;
BbIBOD(A);
WriteLn;
Write('Введите число: ');
ReadLn(c);
SWP(A,c);
ReadLn
End.

7)На координатной плоскости отмечены числа p,q и r.

Какая из разностей q-p, q-r, r-p отрицательная.

ответ: q-r такая из разниц будет отрицательная

8)

9)

х=±7

ответ :-7

10) Костя не выучил 4 билета всего 25 билетов

25-4=21

Вероятность что Кости попадется билет который он знает 21/25=0,84

13) 8х-3(х+9)≥-9

8х-3х-27≥-9

8х-3х≥-9+27

5х≥18

х≥18/15

х≥3,6

ответ: [3,6;∞) №1

14) 1 минута образуется осадок 0,2 грамма

а1=0,2 гр

а7= неизвестная переменная

d = 0,5 - на столько каждую минуту увеличивается масса осадка.

Формула n-ого члена арифметической прогрессии выглядит так:

аn = a1 + d(n - 1).

Подставляем данные величины:

а7 = 0,2 + 0,2(7 - 1) = 0,2 + 1,2= 1,4грамма

ответ: 1,4 грамма

Объяснение:

1.

a = 5

b = 4

5 + 2 * 5 + 3 * 4 = 5 + 10 + 12 = 27(нет операции присваивания результата в какую либо переменную, он просто исчезает)

4 + 5 / 2 * 4 = 4 + 2.5 * 4 = 4 + 10 = 14(опять же нет операции присваивания результата)

b = 4, так как после первого присваивания переменная ни разу не менялась

2.

6 ** 2 + 25 % 7 - 0 // 49 = 36 + 4 - 0 = 40

3.

a = 6 * 12 + 3 = 72 + 3 = 75

b = 75 // 10 + 5 = 7 + 5 = 12

a = 12 % 10 + 1 = 2 + 1 = 3

a = 3

b = 12

4.

a = 30

b = 14

a = 30 - 2 * 14 = 30 - 28 = 2

если 2 > 14: (нет, не больше)

иначе: c = 14 - 2 * 2 = 14 - 4 = 10

c = 10