Работа с массивами (С)

[FenixGuard]

Доброго времени суток!
Пришел на Ваш форум за помощью. Необходимо решить 3 задачи, а вот у самого не получается, есть разные коды у меня для решения задач на максимальное и минимальное значение массива и тому подобное, а вот к этому не знаю как подобраться. Если не код, так хотя бы наводку, подсказку.

1) Дан массив размера N. Определить, существуют ли в массиве три последовательных элемента, образующих арифметическую или геометрическую прогрессию. Если существуют, то вывести их на экран, указав их значения и индексы.

2) Известна высота над уровнем моря каждого километра 100-километровой автотрассы. Определить, на каком расстоянии от начала автотрассы начинается и заканчивается первый самый длинный участок с непрерывным подъемом.

3) Дан целочисленные массив размера N. Определить максимальное количество его одинаковых элементов.

Буду очень благодарен за помощь!

[SlavaSSU]

var
a:array[1..1000] of integer;
i,n:integer;
begin
writeln('vvedite kolichestvo elementov massiva');
readln(n);
writeln('vvedite massiv');
for i:=1 to n do read(a[i]);
for i:=1 to n-2 do
if (a[i]-a[i+1]=a[i+1]-a[i+2]) or (a[i+2]/a[i+1]=a[i+1]/a[i]) then begin
writeln('YES');
writeln('a[',i,']=',a[i],' a[',i+1,']=',a[i+1],' a[',i+2,']=',a[i+2]); exit; end;
writeln('NO');
readln;
end.

[SlavaSSU]

var
a:array[1..100] of integer;
i,max,ans,kol:integer;
begin
writeln('vvedite visoti nad urovnem morya');
for i:=1 to 100 do read(a[i]);
max:=1; ans:=1;
kol:=1;
for i:=1 to 99 do begin 
if a[i+1]>a[i] then inc(kol) else 
begin if kol>max then begin max:=kol; ans:=i-max+1; end; kol:=1; end;
end;
writeln(ans);
readln;
end.

[SlavaSSU]

var
a:array[1..100] of integer;
i,max,ans,kol:integer;
begin
writeln('vvedite visoti nad urovnem morya');
for i:=1 to 100 do read(a[i]);
max:=1; ans:=1;
kol:=1;
for i:=1 to 99 do begin 
if a[i+1]>a[i] then inc(kol) else 
begin if kol>max then begin max:=kol; ans:=i-max+1; end; kol:=1; end;
end;
writeln(ans);
readln;
end.

[SlavaSSU]

var
a:array[1..1000] of integer;
i,n,kol,max,ans,j,t:integer;
begin
writeln('vvedite razmer massiva');
readln(n);
writeln('vvedite massiv');
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
ans:=a[1]; kol:=1; max:=1;
for i:=1 to n-1 do begin
if a[i]=a[i+1] then inc(kol) else begin
if kol>max then begin max:=kol; ans:=a[i]; end; kol:=1;
end;
end;
writeln('max=',max);
writeln('znachenie samogo chastogo elementa=',ans);
readln;
end.

[FenixGuard]

Слава, благодарю Вас за помощь, но в паскале не силен, а код нужен на языке Си, в названии темы указано. Не могли бы вы переделать под Си? Просто паскаль я не знаю вообще.

[FenixGuard]

По поводу 3 задачи попробовал перевел на Си:

#include <stdio.h>
#include <stdlib.h>
int main (void)
{
    int n=20,i,k,max,t,ans,j;
    int a[n];
    srand(6);
    for(i=0;i<n;i++)
     a[i]=rand()%10;
    printf("\n\nArray A\n\n");
     for(i=0;i<n;i++)
      printf("%8i",a[i]);

    for(i=0;i<n-1;i++)
     for(j=i+1;j<n;j++)
      if(a[i]>a[j])
      {
       t=a[i];
       a[i]=a[j];
       a[j]=t;
      }
    ans=a[0]; k=1; max=1;
    for(i=0;i<n-1;i++)
     if(a[i]==a[i+1])
         k++;
     else
     {
      k=1;
      if(k>max)
       {
           max=k;
           ans=a[i];
       }
     }
     printf("\nMax=%i",max);
     printf("\nChast elemtnts=%i",ans);

    return 0;
}

Но программа не работает, подскажите, что не так?

[Rififi]

FenixGuard

Вот вариант третьей задачи на C++ (на Си я не пишу)

#include <iostream>
#include <iterator>
#include <locale>

#include <algorithm>
#include <functional>

template <typename I, typename U>
void find_longest(I begin, I end, U u)
{
	typedef typename std::iterator_traits<I>::difference_type difference_type;

	I next, first = begin, found = end;
	difference_type max_seq = 0;

	for ( ; (next = std::adjacent_find(begin, end, u)) != end; begin = ++next)
	{
		const difference_type curr_length = std::distance(begin, next) + 1;
		if (curr_length > max_seq)
		{ max_seq = curr_length; found = begin; }
	}

	const difference_type last_length = std::distance(begin, next);
	if (last_length > max_seq)
	{ max_seq = last_length; found = begin; }

	typedef typename std::iterator_traits<I>::value_type T;
	typedef std::ostream_iterator<T> O;

	std::cout << "Исходная последовательность:" << std::endl;
	std::copy(first, end, O(std::cout, " "));
	std::cout << std::endl;

	std::cout << "Самая длинная последовательность:" << std::endl;
	std::copy(found, found + max_seq, O(std::cout, " "));
	std::cout << std::endl;
}

struct R
{
	static const int Min = -3;
	static const int Max = 3;

	int operator()() const
	{
		return rand() % (Max - Min + 1) + Min;
	}
};

int main()
{
	setlocale(LC_ALL, "");
	srand((unsigned) time(NULL));

	int arr[30];
	std::generate_n(arr, sizeof(arr) / sizeof(arr[0]), R());

	find_longest(arr, arr + sizeof(arr) / sizeof(arr[0]), std::not2(std::equal_to<int>()));
	
	return 0;
}

Проверка: http://codepad.org/WyaDDkuS

Ps. СлаваССУ ник ОМГ ((((((((((:

[FenixGuard]

Спасибо, но сами понимаете для меня это простой набор букв и цифр, я только начал изучать Си, до С++ долго еще

[Rififi]

FenixGuard

Да ничего страшного, вы-то здесь собственно и не причем.
Просто захотелось решить эту задачку ((((: