туча задач по массивам требуется помощ

[mad_ded]

1) определите кол-во четных и нечетных (по значению) элементов массива
2) вычислите среднее арифметическое значение элементов массива кратных 3-ем
3) выведите на экран элементы массива значение которых не превосходит их номер
4) посчитать кол-во пар рядомстоящих элементов массива одинаковых по значению

пример (тут ошибка)
program three;
uses crt;
var p: array[1..100] of integer;
a, b, n, i, s, kol:integer;
begin
randomize;
clrscr;
write('кол-во элементов: ');
readln(n);
write('границы диапазона: ');
readln(a,b);
for i:=1 to n do
begin
p[i]:=random(b-a+1)+a;
write(p[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
s:=s+p[i];
writeln('сумма',s);
end.

[Leshii]

1)

for i:=1 to n do begin
   if p[i] mod 2 = 0 then inc(chet);
   if p[i] mod 2 <> 0 then inc(nechet);
  end;
  writeln(chet);
  writeln(nechet);

2)

 sum:=0;
    for i:=1 to n do begin
     if p[i] mod 3 = 0 then begin
     sum:=sum+p[i];
     inc(k);
     sred:=sum/k;
    end;
   end;
writeln(sred);

3)

 for i:=1 to n do begin
   if p[i]<=i then write(p[i],' ');
  end;

4)

for i:=1 to n-1 do begin
    if P[i]*P[i+1]>0 then inc(k);
   end;

Сейчас ещё проверю, писал на глаз.

[mad_ded]

спс все сверил)) ток последнее не понимаю(( что такое inc? и вообще словами что это?

[Arhangel7]

Процедура Inc увеличивает, порядковую переменную в данном случае на 1

[mad_ded]

последняя всеже не пашет чет(( когда одна пара выводит 9

[Arhangel7]

for i:=1 to n-1 do begin
if P[i]*P[i+1]>0 then inc(k);//значение массива умножаем на следующее значение
//сравниваем больше ли 0
//вот и ошибка
//надо сравнивать значения друг с другом
end;

if P[i]=P[i+1] then inc(k)

[Hacker19_90]

if P[i]=P[i+1] then inc(k)

Ок! Допустим массив такой
1,2,2,2,3
Откуда видно что первая пара у нас 22, но потом ещё стоит двойка! Вопрос: Та двойка что по середине может ли входить сразу в две пары?

[Arhangel7]

4) посчитать кол-во пар рядомстоящих элементов массива одинаковых по значению

мой ответ - ДА, вторая и третья цифры - пара рядомстоящих элементов, третья и четвертая цифры - пара рядомстоящих элементов
или я чегото не понял?


если же, найденная пара цифр учитываться не может в дальнейшем сравнении, то нужно дописать if I < n - 1 then inc(i);

if P[i]=P[i+1] then begin inc(k);  if I < n - 1 then inc(i);end;

[Hacker19_90]

На мой взгляд пара = 2 чего-то
Допустим последовательность
1 2 3 4 5 6 7 8 9 0
Сколько пар?
5 судя по всему
последовательность
1 2 3 4 5
сколько пар?
2 и +1 элемент
Исходя из этого, (ИМХО) в последовательности
1 2 2 2 5 пар будет 1 так как двойка по середине входит в пару с первой, и соответственно не может одновременно входить в пару с третьей

[Arhangel7]

пара рядом стоящих элементов

я понял это так, два элемента находящихся друг рядом с другом, следовательно
каждый раз, для сравнения берутся два числа стоящих рядом, независимо от того, сравнивались они или нет. Вот так я понял задание, ежели я его понял не верно, (что я не исключаю) то код

 if P[i]=P[i+1] then begin inc(k);  if I < n - 1 then inc(i);end;

, правильное решение, как - то так