Turbo Paskal

[миляуша2013]

Разработка в среде Turbo Pascal программы поиска двух ближайших элементов в массиве.
Дан целочисленный массив размера N.
1. Найти номера двух ближайших элементов из этого массива (то есть элементов с наименьшим модулем разности) и вывести эти номера в порядке возрастания.
2. Упорядочить нечетные по значению элементы второй четверти массива по убыванию обратных значений.
Для отладки программы исходный массив сформировать с помощью генератора случайных чисел.

Буду очень признательна за помощь..

[PavelDD]

У Вас что-нибудь есть по этой задаче?

Вот первая часть:

     write('Введите размер массива:  ');read(n);
     for i:=1 to n do begin
         a[i]:=random(100);
         write(a[i]:4);
     end;
     k:=abs(a[1]-a[2]);
     for i:=1 to n-1 do
         if k>(a[i]-a[i+1])then k:=a[i]-a[i+1];
     writeln;
     write('Номера: ',i,', ',i+1);

А со вторым объясните по подробнее.

[миляуша2013]

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

[Poma][a]

Наверное, всё-таки так :

    ReadLn (n);

        for i := 1 to n do
                Read (a[i]);

        p := 1;
        for i:=1 to n-1 do
                if k < a[i]-a[i+1] then begin
                        k:=a[i]-a[i+1];
                        p := i
                end;

        WriteLn (p, ' ', p+1)

[миляуша2013]

спасибо вам большое..выручаете..

[Poma][a]

Давайте разбираться с заданием #2..

Упорядочить нечетные по значению элементы второй четверти массива по убыванию обратных значений.

Тоесть : надо упорядочить числа от i := n div 4 до n div 2
Обратные значения это (как я понял) -1*a[i]
Ну а нечетные - это if Odd (i) then ...

Попробуйте сделать хоть что-то сами, а мы с радостью Вам поможем

[миляуша2013]

в общем вот

program H_2o;
uses crt;
var
a: array[1..100] of integer;
i,j, n,x,index,del_min,del,v: integer;
begin
randomize;
write ('Введите размер массива до  100');
readln (n);
writeln ('Массив');
for i:=1 to n do
    begin
    a[i] := random(71);
    write(a[i]:4);
    end;
writeln;
index:=1;
del_min:=abs(a[1]-a[2]);
for i:=2 to n-1 do
begin
  del:= abs(a[i]-a[i+1]);
    if del < del_min then
     begin
       del_min:=del;
       index:=i;
     end;
 end;
Writeln('1)Индексы двух ближайших элементов', index:4,(index+1):4);
v:=n div 4;
for i:=v+1 to 2*v-1 do
for j:=i+1 to 2*v do
if(a[i] mod 2 =1)and(a[j] mod 2 =1)and (1/a[i]<1/a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
Writeln('2) Массив после сортировки ');
for i:=1 to n do  write(a[i]:4);
readln ;
end.