программы с массивами в Паскале

[Dean]

добрый день! уважаемые программисты, очень нужно ваша помощь в решении 2-х задачек. завтра нужно сдавать работу, а они так и не решены:
1. определить тип упорядоченности массива - возрастает, убывает, не возрастает, не убывает или не упорядочен.
2. написать программу, которая определяет, есть ли в данном массиве одинаковые рядом расположенные элементы. массив В[1..10] вводится с клавиатуры.
был бы вам очень благодарен!

[Vanta11a]

Примерный алгоритм 1го:

{в качестве проверки используется массив a2 размерностью [3,n-1]. Если сумма стоки нулевая - условие выполнено. 
Первая стока - убывание, вторая - возрастание, третья - равномерность. Если сумма каждой из строк больше 0 - массив не упорядочен}
for i:=1 to n-1 do
if a1[i]=a1[i+1] then
a2[3,i]:=0
else
begin
a2[3,i]:=1;
if a1[i]<a1[i+1] then
begin
a2[1,i]:=0;
a2[2,i]:=1;
end
else
begin
a2[2,i]:=0;
a2[1,i]:=1;
end;
end;
for i:=1 to n-1 do
begin
min:=min+a2[1,i];
max:=max+a2[2,i];
ravn:=ravn+a2[3,i];
end;
if min=0 then write('Упорядочено по убыванию')
else 
if max=0 then write('Упорядочено по возрастанию')
else 
if ravn=0 then write('Равномерен')
else write('Неупорядочен');

По второму - почитай соседние темы.

[Niro]

2) держите

for i:=1 to 10 do
 if mas[i]=mas[i+1] then begin writeln('есть'); break; end;

[Dean]

Сообщение от Niro

2) держите

простите, а можно поподробнее?

[Niro]

var mas: array [1..10] of integer;
     i: integer;
begin
   for i:=1 to 10 do
     if mas[i]=mas[i+1] then begin writeln('есть'); break; end;
   if i=10 then writeln('нету');
   readln;
end.

заполните массив сами

[Dean]

большое спасибо, друзья!