Помогите пожалуйста с массивом!for i:=1 to 10 doA[i]:=5*i;for i:=1 to 10 do...

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

---

---

Comments

первый цикл - генерирует в ячейки массива числа кратные 5, а вот 2й ... уменьшает числа с конца ... :S

---

да! Точно!

---

надо просто их перевернуть что ль ?

---

нет. Предлагаете установить и вбить?

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.

Comments

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