Поменять в массиве местами элементы с чётными и нечётными индексами

@malinka_irinka · Регистрация: 01.10.2014

Author24 — интернет-сервис помощи студентам

Составить программу с использованием базовых алгоритмов для работы с одномерными массивами.
При помощи случайных чисел ввести одномерный массив, состоящий из 20 элементов и поменять в нем местами элементы с чётными и нечётными индексами. на экран вывести исходный и преобразованный массивы в две строки.

@Joy · 01.10.2014, 10:20

Pascal

const n=20;
var
 a:array[1..n] of integer;
 i:integer;
procedure swap(var ii,jj:integer);
var
  kk:integer;
begin
  kk:=jj;
  jj:=ii;
  ii:=kk;
end;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i:=1 to n do begin
    a[i]:=random(100);
    write(a[i],'  ');
  end;
  writeln;i:=2;
  repeat
   swap(a[i],a[i-1]);
   i:=i+2;
  until i=n;
  writeln('Полученный массив');
  for i:=1 to n do write(a[i],'  ');
 readln;
end.

@malinka_irinka 0 / 0 / 1 Регистрация: 01.10.2014 Сообщений: 22
		1
	Поменять в массиве местами элементы с чётными и нечётными индексами 01.10.2014, 09:53. Показов 1444. Ответов 1 Метки нет (Все метки) Составить программу с использованием базовых алгоритмов для работы с одномерными массивами. При помощи случайных чисел ввести одномерный массив, состоящий из 20 элементов и поменять в нем местами элементы с чётными и нечётными индексами. на экран вывести исходный и преобразованный массивы в две строки. 0

	01.10.2014, 10:20

Поменять в массиве местами элементы с чётными и нечётными индексами

Решение