Заменить каждый четный элемент массива на соседний справа элемент

@Наталина) · Регистрация: 05.12.2009

нужно написать в паскале :

исходный массив х целого типа;
1)заменить каждый четный элемент массива х на соседний справа элемент
2)сдвинуть элементы массива х на р позиций влево (р-целое число , задается при вводе), заменяя освободившиеся позиции цифрвми 1,2,3.....

@Tom_Sawyer · 22.02.2010, 22:12

2. Как понял задание: поменять местами чётные элементы с элементами, стоящими на нечетных местах.

Pascal

var a:array[1..100] of integer;
    i,n,k:integer;
begin
 readln(n);
 for i:=1 to n do
  begin 
   write('a[',i,']=');
   readln(a[i]);
  end;
 i:=1;
 while i<n do
  begin
   k:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=k;
   i:=i+2
  end;
 for i:=1 to n do
 writeln('a[',i,']=',a[i]);
end.

@Puporev · 23.02.2010, 11:51

2)сдвинуть элементы массива х на р позиций влево (р-целое число , задается при вводе), заменяя освободившиеся позиции цифрвми 1,2,3.....

Pascal

uses crt;
const max=100;
var x:array[1..max] of integer;
    n,i,j,p:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=random(20)+1;
  write(x[i],' ');
 end;
writeln;
writeln;
repeat
write('На сколько позиций сдвинуть? от 1 до ',n,' p=');
readln(p);
until p in [1..n];
for i:=1 to n-p do
x[i]:=x[i+p];
for i:=n-p+1 to n do
x[i]:=i-n+p;
writeln('Массив после сдвига:');
for i:=1 to n do
write(x[i],' ');
readln
end.

@Наталина) 0 / 0 / 0 Регистрация: 05.12.2009 Сообщений: 19
		1
	Заменить каждый четный элемент массива на соседний справа элемент 22.02.2010, 21:31. Показов 3064. Ответов 2 Метки нет (Все метки) нужно написать в паскале : исходный массив х целого типа; 1)заменить каждый четный элемент массива х на соседний справа элемент 2)сдвинуть элементы массива х на р позиций влево (р-целое число , задается при вводе), заменяя освободившиеся позиции цифрвми 1,2,3..... __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Заменить каждый четный элемент массива на соседний справа элемент

Решение