Помогите пожалуйста, не могу сообразить(( Дан массив целых чисел. Найти количество пар соседних элементов, в которых одно число положительное, а другое отрицательное. Выведите также сформированный массив и все искомые пары сосе...
Помогите пожалуйста, не могу сообразить((
Дан массив целых чисел. Найти количество пар соседних элементов, в которых одно число положительное, а другое отрицательное. Выведите также сформированный массив и все искомые пары соседних элементов.
PascalABC.
Гость
Ответ(ы) на вопрос:
ГостьConst
n=10;
Var
ar:array[1..n] of integer;
k,i:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-1,1);
write(ar[i]:4);
end;
writeln;
for i:=1 to n-1 do
if ((ar[i]>0) and (ar[i+1]<0)) or ((ar[i]<0) and (ar[i+1]>0)) then
begin
writeln(ar[i],' ',ar[i+1]);
k:=k+1;
end;
writeln('Всего:',k);
end.
Не нашли ответ?
Похожие вопросы