одномерный массив в паскале

[Bibinur]

Доброго дня, Всем участникам данного форума.
Зарегистрировалась здесь так как не могу решить задачу, уже 3 дня сижу. Задача состоит из 4 частей
Часть I. ПОЛУЧЕНИЕ ЭЛЕМЕНТОВ МАССИВА
“Вычислить значения 30 элементов одномерного целочисленного массива ‹R› в интервале (-10 ,6) c использованием генератора случайных чисел”
Часть 2. ВЫЧИСЛЕНИЕ ПАРАМЕТРА МАССИВА
“Вычислить сумму четных по номеру элементов последней четверти массива”
Часть 3. ОПРЕДЕЛЕНИЕ ПАРАМЕТРА МАССИВА
“Определить наибольший элемент среди принадлежащих [a/2; b/2] элементов первой трети массива”
Часть 4. УПОРЯДОЧЕНИЕ ЭЛЕМЕНТОВ МАССИВА
“Упорядочить нечётные по номеру элементы второй четверти массива по возрастанию квадратов значений”

Первую и вторую часть вроде как сделала, правильно или нет не знаю, в тертьей части вывожу элемент, но не знаю как вывести его порядковый номер, а к четвертой части не приступала((((

Program Work_4; 
  const 
     N=30; 
     a=-10;
     b=6;
  Var 
     s,max,z:real;
     i,k,t: integer; 
     R:array[1..N] of Real; 
Begin 

   s:=0;
          Randomize; 
          for i:=1 to n do 
          R[i]:=a+Round((b-a)*Random(100)/100); 
          Writeln('vyvod elementov massiva:'); 
          for i:=1 to N do Write(R[i]:4); 
          Writeln; 
                k:=trunc(N/4);
                k:=N-k;
                for i:=k to N do
                if (i mod 2=0) then 
                s:=s+R[i];
                writeln ('s=',s);
                          t:=trunc(N/3);
                          for i:=1 to t do
                          begin
                          if (R[i]>=(a/2)) and (R[i]<=(b/2)) then
                          z:=R[i];
                          if (R[i]>z) then
                          max:=R[i]
                          else max:=z;
                          end;
                          writeln ('max=',max);
            
end.

Надеюсь на, Вашу, помощь




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]

но не знаю как вывести его порядковый номер

for i:=1 to t do
if r[i]=max then begin (write(i,' '));break;end;

[Bibinur]

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

[Mad_Cat]

max:=-999999;
for i:=1 to t do
if (R[i]>=(a/2)) and (R[i]<=(b/2)) and (R[i]>max) then
max:=R[i];
if max<>-999999 then
for i:=1 to t do
if r[i]=max then begin (write(i,' '));break;end;

[Bibinur]

выдает ошибку "нельзя изменять переменную цикла в цикле"

[Serge_Bliznykov]

выдает ошибку "нельзя изменять переменную цикла в цикле"

да вроде бы в данном примере нет изменения переменной цикла внутри самого цикла...

давайте полностью Ваш код.
не забудьте оформить код тегами!

[Bibinur]

ошибку выдавать перестал, но значение максимальногоне правильное
Program Work_4;
const
N=30;
a=-10;
b=6;
Var
s,max,z:real;
i,k,t: integer;
R:array[1..N] of Real;
Begin
s:=0;
Randomize;
for i:=1 to n do
R[i]:=a+Round((b-a)*Random(100)/100);
Writeln('vyvod elementov massiva:');
for i:=1 to N do Write(R[i]:4);
Writeln;
k:=trunc(N/4);
k:=N-k;
for i:=k to N do
if (i mod 2=0) then
s:=s+R[i];
writeln ('s=',s);
t:=trunc(N/3);
max:=-999999;
for i:=1 to t do
if (R[i]>=(a/2)) and (R[i]<=(b/2)) and (R[i]>max) then
max:=R[i];
if max<>-999999 then
for i:=1 to t do
if r[i]=max then
begin
writeln ('i=',i:4,' max=',max);
break;
end;

end.

[Mad_Cat]

-1.00 1.00 -3.00-10.00 -2.00 4.00 -9.00 -9.00 6.00 2.00

i= 10 max=2

все верно имхо в промежутке [-5;3] максимум как раз 2
а 4 и 6 в этот промежуток не входят

[Bibinur]

Спасибо большое,никто не знает как решить четвертую часть?