Помогите модифицировать программу. Нужно сделать так чтобы программа еще находила номер последней пары элементов массива с разными знаками) 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.
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.
More Questions From This User See All