С массивом! for i:=1 to 10 doA[i]:=5*i-for i:=1 to 10 do begink:=A[i]-2-a[10-i+1]:=k-end

помогите пожалуйста с массивом!

for i:=1 to 10 doA[i]:=5*i;for i:=1 to 10 do begink:=A[i]-2;a[10-i+1]:=k;

end

  • если нужна программа, меняющая ячейки местами1 2 3 4 5

    5 4 3 2 1

    вот код

    var a:array[1..10] of integer;          i,k:integer;begin     for i:=1 to 10 do         begin         A[i]:=5*i;               write (a[i]:3);         end;   writeln;     for i:=1 to 5 do           begin             k:=A[i];               A[i]:=A[10-i+1];              A[10-i+1]:=k;         end;     for i:=1 to 10 do          write (A[i]:3);

    end.