Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
katareva
0 / 0 / 0
Регистрация: 19.03.2016
Сообщений: 22
#1

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

14.06.2016, 13:20. Просмотров 370. Ответов 2
Метки нет (Все метки)

Дан массив. Все элементы с четными номерами удвоить, с нечетными - уменьшить на 1.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2016, 13:20
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Дан массив. Все элементы с четными номерами удвоить, с нечетными - уменьшить на 1 (Turbo Pascal):

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

Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами - Turbo Pascal
Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами.

Удвоить элементы с четными номерами и переписать их в новый массив, отсортировать - Turbo Pascal
ввести с клавиатуры размерность и значения элементов линейного массива целых чисел.Удвоить элементы с четными номерами и переписать их в...

Удвоить элементы с четными номерами и переписать их в новый массив. Полученный массив отсортировать - Turbo Pascal
4.Задача. Ввести с клавиатуры размерность и значения элементов линейного массива целых чисел. Удвоить элементы с четными номерами и...

Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами - Turbo Pascal
Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами. Объединить полученные массивы в порядке...

В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными - Turbo Pascal
Задан массив с количеством элементов N. Сформировать два массива: в первый включить элементы исходного массива с четными номерами, а во...

2
EveKS
375 / 333 / 81
Регистрация: 19.04.2016
Сообщений: 1,367
Завершенные тесты: 6
14.06.2016, 14:13 #2
Яб так попробовал:

C#
C#
1
2
3
4
5
6
            int[] int1 = new int[] { 1, 2, 3, 4, 5, 6, 7, 8 ,9 , 0};
 
            for (int i = 0; i < int1.Length; i++)
                int1[i] = (i % 2 == 0) ? int1[i] * 2 : int1[i] - 1;
            foreach (int i in int1)
                Console.WriteLine(i);


Как-то так, паскаль

В цикле переменная, можно глобальную кинуть.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  arr: array of integer;
 
begin
  SetLength(arr, 10);
  for var i := 0 to arr.Length - 1 do
    arr[i] := Random(1, 99);
  
  foreach var x in arr do
    Print(x);
  WriteLn();
  
  for var i := 0 to arr.Length - 1 do
  begin
    if i mod 2 = 0 then
      arr[i] *= 2
    else
      arr[i] -= 1;
  end;
  
  foreach var x in arr do
    Print(x);
end.
Немного о 0 :
if i mod 2 = 0 and i <> 0 then


"C#, для разнообразия, через функции

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
using System;
 
namespace Test01
{
    class Program
    {
        static void Main(string[] args)
        {
            Func<int, bool> bool1 = x => x % 2 == 0;
            Func<int, bool, int> int2 = (x, y) => (y) ? x * 2 : x - 1;
            int[] int1 = new int[] { 1, 2, 3, 4, 5, 6, 7, 8 };
 
            for (int i = 0; i < int1.Length; i++) 
                int1[i] = int2(int1[i], bool1(int1[i]));
            foreach (int i in int1)
                Console.WriteLine(i);
        }
    }
}

PS
PS тема была в C#
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3557 / 2251 / 1152
Регистрация: 22.11.2013
Сообщений: 5,922
14.06.2016, 15:18 #3
Pascal
1
2
for i:=1 to n do
  if Odd(a[i]) then Dec(a[i]) else a[i]:=a[i]*2;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2016, 15:18
Привет! Вот еще темы с ответами:

В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными - Turbo Pascal
1) задан массив а размерности n. сформируйте два массива в и с: в первый включить элементы исходного массива а с четными номерами, а во...

В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1. - Turbo Pascal
В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.

Заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1 - Turbo Pascal
1. В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.

Дан массив. Вывести его элементы с четными номерами в порядке возрастания номеров - Turbo Pascal
Дан масив А размера N(N-четное число). Вывести его элементы с четными номерами в порядке возрастания номеров А2, А4,А6,…А N.Условный...


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

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

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