Задачка на Паскале

[Евгений2]

В данном линейном массиве A[1..N] поменять местами пары элементов, индексы которых при делении на 4 дают в остатке соответственно 1 и 0. (Например, для массива 0, 1, 2, 3, 4, 5, 6, 7, 8 получим в результате 3, 1, 2, 0, 7, 5, 6, 4, 8.)

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

Program Kr_2_3;
 Const NMax = 100;
 Type LinMass = Array[1..NMax] Of Integer;
 Var A : LinMass; N, I, M, temp, temp2 : Integer;
 Begin
   Write('введите размер массива? '); ReadLn(N);
   For I := 1 To N Do
   Begin
       Write('элемент A[', I, '] '); ReadLn(A[I]);
       If i mod 4 = 0 then temp:= A[i];
       if i mod 4 = 1 then temp2:=A[i];
       end;
   for I := 1 to N do
   Begin
       if i mod 4 = 0 then A[i]:=temp2;
       if i mod 4 = 1 then A[i]:=temp;
   End;
   For I := 1 To N Do Write(A[I] : 6);
   WriteLn
 End.

подскажите я на правильном пути?

[Jora_Kornev]

В данном линейном массиве A[1..N] поменять местами пары элементов, индексы которых при делении на 4 дают в остатке соответственно 1 и 0. (Например, для массива 0, 1, 2, 3, 4, 5, 6, 7, 8 получим в результате 3, 1, 2, 0, 7, 5, 6, 4, 8.)

так индексы или значения?

[Евгений2]

делим индексы, а меняем местами элементы....

[Jora_Kornev]

a[i]=b
a[i] -элемент массива
i - индекс
b - значение

[Евгений2]

ну да...
именно это я имеею ввиду

[Jora_Kornev]

значит тебе просто надо поменять местами
a[0] и a[4]
так как 0/4=0
а 4/4=1

[Евгений2]

да, но это надо делать по всему массиву...
то есть массив 0 1 2 3 4 5 6 7 8 к примеру
надо менять A[1] = 0 с A[4] =3 и A[5] = 4 c A[8]= 7...

[Jora_Kornev]

ага, стоп, в условии сказано: "остаток от деления"
тогда надо использовать Mod, который дает остаток от деления делимого на делитель

исходя из этого нужен примерно такой кусок кода:

z:=-1;
for i:=1 to n-1 do
 for j:=i+1 to n do
  begin
   if (i mod j) = 0 then z:=i;
   if ((i mod j) = 1) and (z<>-1) then
    begin
     temp:=a[z];
     a[z]:=a[i];
     a[i]:=temp;
     z:=-1;
    end;
  end;

примерно так...

[Евгений2]

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

[Jora_Kornev]

чтото типа такого должно получиться. не проверял лично

program Kr_2_3;
 type
  LinMass = Array[1..100] Of Integer;
 var 
  a : LinMass;
  z, i, j, temp, n : Integer;
BEGIN
 write('введите размер массива? ');
 readln(n);
 for i:=1 to n do
  begin
   write('элемент A[', i, ']= ');
   readln(a[i]);
  end;
 z:=-1;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   begin
    if (i mod j) = 0 then z:=i;
    if ((i mod j) = 1) and (z<>-1) then
     begin
      temp:=a[z];
      a[z]:=a[i];
      a[i]:=temp;
      z:=-1;
     end;
   end;
 for i:=1 to n do
  write('A[',i,']='a[i],' ');
END.