Помогите модифицировать программку. Необходимо сделать так чтобы программка еще выискала номер

Помогите модифицировать программку. Необходимо сделать так чтоб программка еще отыскала номер последней пары элементов массива с различными знаками)
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] lt; 0 then
S:=S+A[I];
if (A[I] gt; 0) and (A[I] lt; Z ) then
K:=K+1;
end;
for i := 1 to n-1 do
if A[I]*A[I+1]lt;0 then P := i;
if Pgt;0
then writeln('Номер заключительней пары примыкающих частей с различными знаками: ', P)
else writeln('Массив не содержит частей с разными знаками');
print(S);
print(K);
end.

Задать свой вопрос
Костян
Так она же его обретает... А еще обретает сумму отрицательных частей и количество положительных, наименьших данного
1 ответ
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] lt; 0 then S:=S+A[I];
    if (A[I] gt; 0) and (A[I] lt; 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]lt;0 then P := i;
  if Pgt;0 then
    Writeln('Номер заключительней пары примыкающих элементов с разными знаками: ', P)
  else
    Writeln('Массив не содержит элементов с различными знаками');
  конец блока
 
end.

Пример
Введите количество частей массива: 12
Значение элементов массива
  5  5 -1 -2 -1  3  0 -3  4 -1  6  5
Введите число А: 6
Сумма отрицательных частей -8
Количество положительных частей, наименьших данного 5
Номер последней пары примыкающих частей с различными знаками: 10
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость

Физика.

Из точки м выходят 3 луча MP MN и MK причём

Геометрия.

выпиши в свою тетрадь те правила этикета которые тебе не были

Разные вопросы.

Анна хорошо учится у неё много подруг свободное от учёбы время

Обществознание.

10) Килограмм конфет дороже килограмма печенья на 52 р. За 8

Математика.

Во сколько раз число атомов кислорода в земной коре больше числа

Химия.

Составить монолог от имени дневника двоечника 7-10 предложений

Русский язык.

Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо

Разные вопросы.

Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных

Разные вопросы.

Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей

Математика.

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт