0 / 0 / 0
Регистрация: 05.12.2009
Сообщений: 19
1

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

22.02.2010, 21:31. Показов 3064. Ответов 2
Метки нет (Все метки)

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

исходный массив х целого типа;
1)заменить каждый четный элемент массива х на соседний справа элемент
2)сдвинуть элементы массива х на р позиций влево (р-целое число , задается при вводе), заменяя освободившиеся позиции цифрвми 1,2,3.....
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2010, 21:31
Ответы с готовыми решениями:

В двух массивах заменить каждый четный элемент на первый элемент массива
В двух массивах А(30) и В(11) заменить каждый четный элемент на первый элемент массива. Вывести...

Каждый отрицательный элемент массива заменить полусуммой его соседей справа и слева
Пусть дан массив из n элементов.Каждый отрицательный элемент замените полусуммой тех двух...

Каждый четный элемент в массиве заменить результатом его целочисленного деления на 5
Ввести двумерный массив A (NxM). Каждый четный элемент в массиве заменить результатом его...

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

2
88 / 88 / 56
Регистрация: 05.12.2009
Сообщений: 134
22.02.2010, 22:12 2
Лучший ответ Сообщение было отмечено Наталина) как решение

Решение

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.02.2010, 11:51 3
2)сдвинуть элементы массива х на р позиций влево (р-целое число , задается при вводе), заменяя освободившиеся позиции цифрвми 1,2,3.....
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2010, 11:51
Помогаю со студенческими работами здесь

Заменить каждый элемент массива на среднее арифметичекое этого элемента и его соседний
Дан массив размера N. Заменить каждый элемент массива на среденее арифметическое этого элемента и...

Каждый четный элемент массива умножить на минимальный элемент, а нечетный на максимальный
В одномерном массиве, состоящем из n целых элементов, каждый четный элемент умножить на минимальный...

Каждый четный элемент массива умножить на минимальный его элемент
В одномерном массиве, состоящем из n целых элементов, каждый четный элемент умножить на минимальный...

Каждый элемент массива (кроме первого и последнего) заменить на полусумму элементов слева и справа С++
Здравствуйте, уважаемые форумчане! :) Есть код, но он работает некорректно, не могу решить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru