Не могу сообразить(( дан массив целых чисел. найти количество пар соседних элементов, в которых одно число положительное, а другое отрицательное. выведите также сформированный массив и все искомые пары соседних элементов. pascalabc.
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.
Компьютер быстро вошел в нашу жизнь. Еще несколько лет назад было редкостью увидеть какой-нибудь персональный компьютер – они были, но были очень дорогие, и даже не каждая фирма могла иметь у себя в офисе компьютер. А теперь? Теперь в каждом третьем доме есть компьютер, который уже глубоко вошел в жизнь человека. Современные вычислительные машины представляют одно из самых значительных достижений человеческой мысли, влияние которого на развитие научно-технического прогресса трудно переоценить. Для многих людей сейчас компьютер уже не роскошь, а необходимый предмет домашней или рабочей обстановки.
1)Код — правило (алгоритм) сопоставления каждому конкретному сообщению строго определённой комбинации символов (знаков) (или сигналов). Кодом также называется отдельная комбинация таких символов (знаков) —слово. В общем: код это набор каких-либо определенных символов 2)Процесс преобразования сообщения в комбинацию символов в соответствии с кодом называется кодированием. Это замена, допустим, букв на символ(код) 3)процесс восстановления сообщения из комбинации символов называется декодированием. Процесс наоборот, т.е из символов(кода) возвращаем в буквы
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.