Question

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

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

Answer 1

если нужна программа, меняющая ячейки местами
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.

Answer 2

чойта за нарушение то ...