Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Miller61
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
1

Удвоить четные элементы массива

11.03.2010, 18:26. Просмотров 678. Ответов 4
Метки нет (Все метки)

Дана последовательность A1,..,A40. Получить последовательность B1,..,B40 которая будет отличаться от исходной тем, что все четные элементы удвоены.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2010, 18:26
Ответы с готовыми решениями:

Все нечетные элементы удвоить, а четные уменшить в двое
Все нечетные элементы удвоить, а четные уменшить в двое.

В Массиве А(10) расположить элементы следующим образом: четные в начало,а не четные в конец массива
2.)составьте программы, изпользуя одномерный массив. В Массиве А(10)...

Удалить максимальные элементы и удвоить минимальные элементы массива
Удалить из массива элементы, содержащие максимальный элемент массива, а затем...

Создать два массива, в одном из которых находятся все четные по номеру элементы, в другом – нечетные по номеру элементы массива
Задан массив. Создать два массива, в одном из которых находятся все четные по...

Подпрограммы. Удвоить нечетные элементы заданного массива
Разработать алгоритм в виде блок-схемы и написать функцию (процедуру), которая...

4
yanyk1n
4333 / 1465 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
11.03.2010, 18:27 2
Pascal
1
for i:=1 to 40 do if a[i] mod 2=0 then b[i]:=a[i]*2 else b[i]:=a[i];
0
Puporev
Модератор
55479 / 42580 / 29429
Регистрация: 18.05.2008
Сообщений: 100,730
11.03.2010, 18:28 3
Pascal
1
2
3
for i:=1 to 40 do
if odd(a[i]) then b[i]:=a[i]
else b[i]:=a[i]*2;
0
Miller61
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
11.03.2010, 21:49  [ТС] 4
дайте пожалуйста полный текст программы)
0
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
12.03.2010, 08:28 5
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
uses
  Crt;
const
  N = 10;
var
  i: integer;
  a,b: array [1..N] of integer;
begin
  ClrScr;
  Randomize;
  WriteLn('Array A: ');
  for i := 1 to N do
  begin
    a[i] := Random(8) - 4;
    if odd(a[i]) then // åñëè Г·ГҐГІГ*ûå ГЇГ® Г*îìåðó, ГІГ® Г*Г*äî odd(i)
      b[i] := a[i]
    else
      b[i] := a[i] + a[i];
    Write(a[i], ' ');
  end;
  WriteLn;
  WriteLn('Array B: ');
  for i := 1 to N do
    Write(b[i], ' ');
  ReadLn
end.
0
12.03.2010, 08:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2010, 08:28

Все четные элементы массива заменить нулями, остальные элементы максимальными
В одномерном числовом массиве D все четные элементы заменить нулями ,остальные...

Из одномерного массива А удалить все элементы, правее которых расположены четные элементы
Из одномерного массива А удалить все элементы, правее которых расположены...

Все элементы массива с нечетными номерами удвоить, с четными - уменьшить на 1
Дан массив из 15 элементов. Все элементы с нечетными номерами удвоить, с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru