В информатике я тундра! спасайте))
В массиве из n элементов поменяйте местами m-й и k-й элементы массива .

1

Ответы и объяснения

2013-11-19T22:30:59+04:00
Var
  a : array [1..1000] of integer;
  n, m, k, z : integer;
begin
  read (n, m, k);
  for i := 1 to n do read (a[i]);
  z := a[m];
  a[m] := a[k];
  a[k] := z;
  for i := 1 to n do write (a[i], ' ');
end.