Ребят скинула преподавателю задание и у нее неверное решение вылезает. Когда сама делала раз 20 все нормально было. Посмотрите есть ли ошибка и если есть как ее исправить что бы работало. Задача: Дан массив целых чисел, состоящий из 25 элементов. Из данного массива исключить последнее положительное число, а остальные записать в новый массив. Заполнить при функции RANDOM. Фото что вышло у преподавателя прикрепляю. program z3; const n = 25; var arr1, arr2: array[1..n] of integer; i, d: integer; begin d := n; for i := 1 to d do begin arr1[i] := random(20) - 10; write(arr1[i], ' '); end; for i := d downto 1 do if (arr1[i] >0) then break; dec(d); for i := i to d do arr1[i] := arr1[i + 1]; writeln; for i := 1 to d do begin arr2[i] := arr1[i]; write(arr2[i], ' '); end; end.

1. Решите примеры
   1.)  2
   2.)  3
   3.)  1
   4.)  0
   5.)  0
   6.)  3
   7.)  1

2.) Определите результаты выполнения следующих действий
   1.)  {
          a = 1819;        
          b = (div (а,100)) * 10 + 9 = 18 * 10 + 9 = 180 + 9 = 189
          a = mod (10*b - a),100) = mod (189*10-1819,100) = mod (71,100) = 71
         
          a = 71 ; b = 189       
        };
   2.)  {
          а = 7*3 – 4 = 21 - 4 = 17
          а = а*5 = 17*5 = 85
          b = div (a,10) = div (85,10) = 8
          a = mod (a,10) = mod (85,10) = 5
         
          a = 5 ; b = 8
        };
   3.)  {
          a = 5
          b =a+2 = 5+2 = 7
          a = (a+2)*(b-3) = (5+2)*(7-3) = 7*4 = 28
          b = div (a,5) = div (28,5) = 5
          a = mod (a,b) = mod (28,5) = 3
          a = a+1 = 3+1 = 4
          b = mod (a+14,7) = mod (18,7) = 4

          a = 4 ; b = 4
        };

3.) Представить следующие числа в нормализованном виде, указать мантиссу и порядок
   1.)
      Нормализованный вид: 3.7412*10^-5
      Мантисса: 3.7412
      Порядок: -5
   2.)
      Нормализованный вид: 1.65723*10^7
      Мантисса: 1.65723
      Порядок: 7

//з № 1var s,d,f,max:integer;beginRead(s,d,f);if (s > d)and (s > f) thenmax:= selse if (d > s) and (d > f)  thenmax:= delse if (f > d) and(f > s) then max:=f;write('max ',max);end.

//з № 2 var x:real; r:integer;beginwrite('Введите число x =');Read(x);if Frac(x)=0 then beginwriteln('x - целое число!');r:=round(x);if ((r mod 2)=0) then writeln('Число четное')else writeln('Число нечетное');endelse writeln('x - дробное число!')end.

//з № 3var a:integer;beginwrite('Введите число а =');Read(a);if (a > 0)and (a <= 5) thena:= a *a*aelse if (a > 5)  thena:= a*aelsea:=a;write('a = ',a);end.

Объяснение: