Моля ви за помощ (програма в Паскал) За всички програмисти.

[golfadjiq]

Масивът а е с n елемента. Да се състави алгоритъм за създаване на нов масив, съдържащ индексите на елементите на масива а, които имат стойност в интервала (p,q), където p < q - моля ви помогнете -

[myrshavija]

Ако допуснем, че i е броячът, с който обикаляш първия масив(a), то във втория масив(примерно b) трябва да записваш стойностите на i, за които a[i] е между p и q. Не е ясно дали първият масив е целочислен, но това не е важно, стига типът му да е сравним с p и q. Вторият ти масив определено трябва да е целочислен, за да записваш в него стойностите на брояча.

[c1ick]

Бе позабравил съм Паскала, ама тва се компилира и чак работи. Допускаме, че масивите са от цели числа и са от 100 елемента макс.

Код: Избери всички

program masivi;
var i, j,
    n, p, q:integer;
    a: array[1..100] of integer;
    b: array[1..100] of integer;   
begin
     write('Vyvedete razmer na masiva N:');
     readln(n);
     repeat
           write('Vyvedete P:');
           readln(p);
           write('Vyvedete Q:');
           readln(q);
           if (not (p < q)) then begin
              writeln('P trqbva da e < Q!');
           end;
     until p < q;

     j := 1;
     for i := 1 to n do begin
         write('Vyvedete element ',i,':');
         readln(a[i]);
         if (a[i] >= p) and (a[i] <= q) then begin
            b[j] := i;
            inc(j);
         end;
     end;

     writeln('Elementi na masiv B:');
     for i := 1 to j-1 do begin
         writeln('Element ',i,': ',b[i]);
     end;

     writeln('Krai.');
     readln;
end.

Айде, колега, ще почерпиш некой ден.

[golfadjiq]

Мерси колега много съм ти задължен-