Question

Модифицировать программу. нужно сделать так чтобы программа еще находила номер последней пары элементов массива с разными знаками) 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.

Answer 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] < 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