Модифицировать программу. нужно сделать так чтобы программа еще находила номер последней пары элементов массива с разными знаками) program first; uses crt; const n=1000; var a: array[0..n] of integer; i,k,z,s,r,p: integer; begin clrscr; randomize; print('введите количество элементов массива: '); readln(r); println('значение элементов массива'); for i: =1 to r do begin a[i]: =random(10)-3; write(a[i]: 3); end; println(); println('введите число а'); read(z); s: =0; k: =0; p: =1; for i: =1 to r do begin if a[i] < 0 then s: =s+a[i]; if (a[i] > 0) and (a[i] < z ) then k: =k+1; end; for i : = 1 to n-1 do if a[i]*a[i+1]< 0 then p : = i; if p> 0 then writeln('номер последней пары соседних элементов с разными знаками: ', p) else writeln('массив не содержит элементов с разными знаками'); print(s); print(k); end.

Program first; uses crt; const n=1000; var   a: array[0..n] of integer;   i,k,z,s,r,p: integer;   begin   clrscr;   randomize;   print('введите количество элементов массива: '); readln(r);   println('значение элементов массива');   for i: =1 to r do begin       a[i]: =random(10)-3;       write(a[i]: 3)       end;   println();     { начало блока вычисления s - суммы отрицательных элементов       и k - количество положительных, меньших заданного z (число "а") }   print('введите число а: '); read(z);   s: =0; k: =0;   for i: =1 to r do begin       if a[i] < 0 then s: =s+a[i];       if (a[i] > 0) and (a[i] < z ) then k: =k+1       end;   writeln('сумма отрицательных элементов ',s);   writeln('количество положительных элементов, меньших заданного ',k);   { конец блока }     { начало блока нахождения номера последней пары       соседних элементов с разными знаками }   p: =1;   for i : = 1 to n-1 do if a[i]*a[i+1]< 0 then p : = i;   if p> 0 then       writeln('номер последней пары соседних элементов с разными знаками: ', p)   else       writeln('массив не содержит элементов с разными знаками');   { конец блока }   end. пример введите количество элементов массива: 12 значение элементов массива   5  5 -1 -2 -1  3  0 -3  4 -1  6  5 введите число а: 6 сумма отрицательных элементов -8 количество положительных элементов, меньших заданного 5 номер последней пары соседних элементов с разными знаками: 10

3*8*600*1200=17280000бит=2160000байт=2109,375кбайт=2,05мбайт