Question

Помогите пожалуйста с массивом!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

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.