Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Allena_101
0 / 0 / 0
Регистрация: 11.04.2017
Сообщений: 33
1

В одномерном целочисленном массиве поменяйте местами первый нечетный и последний четный элементы.

18.04.2017, 19:12. Просмотров 534. Ответов 3
Метки нет (Все метки)

В одномерном целочисленном массиве поменяйте местами первый нечетный и последний четный элементы. Выведите исходный и изменённый массив, а также индексы элементов, которые менялись местами (исходный массив должен формироваться с помощью генератора случайных чисел).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2017, 19:12
Ответы с готовыми решениями:

В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы
В одномерном целочисленном массиве поменяйте местами последний наименьший и...

В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы
В одномерном целочисленном массиве поменяйте местами последний наименьший и...

Поменять местами первый положительный и последний отрицательный элементы в одномерном массиве
Дан массив целых чисел (n=10), заполненный случайным образом числами из...

Массив: В одномерном массиве поменяйте последний элемент с первым, второй-с предпоследним и т.д
В одномерном массиве поменяйте последний элемент с первым, второй-с...

Поменяйте местами последний элемент массива, кратный В и первый элемент кратный С
Создайте одномерный массив, поменяйте местами последний элемент кратный В и...

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,083
18.04.2017, 19:59 2
Поменять местами значение первого четного элемента массива со значением последнего нечетного элемента массива.
0
Allena_101
0 / 0 / 0
Регистрация: 11.04.2017
Сообщений: 33
28.04.2017, 19:19  [ТС] 3
Составьте программу. Только составить нужно без строкового типа данных. И не применяя odd. inc. dec.
Вот начало программы
Pascal
1
2
3
4
5
6
7
8
program nomer_1;
 const n=20; 
var mas: array[1..n] of integer;
i,l,m: integer;
begin
randomize;   
for i:=1 to 20 do begin
mas[i]:=random(10)+1;
...
В одномерном целочисленном массиве поменяйте местами первый нечетный и последний четный элементы. Выведите исходный и изменённый массив, а также индексы элементов, которые менялись местами (исходный массив должен формироваться с помощью генератора случайных чисел).
0
Cyborg Drone
Модератор
5293 / 3171 / 2442
Регистрация: 17.08.2012
Сообщений: 10,186
29.04.2017, 01:28 4
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
33
34
const n = 20;
var mas: array[1..n] of integer;
    i, f, l, t: integer;
begin
  randomize;
  f := 0;
  l := 0;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      mas[i] := random(10) + 1;
      write(mas[i]:3);
      if (f = 0) and (mas[i] and 1 = 1)
        then f := i
        else if mas[i] and 1 = 0
          then l := i
    end;
  writeln;
  if f * l <> 0
    then begin
      writeln('Номер первого нечётного элемента: ', f);
      writeln('Номер последнего чётного элемента: ', l);
      t := mas[f];
      mas[f] := mas[l];
      mas[l] := t;
      writeln('Преобразованный массив:');
      for i := 1 to n do write(mas[i]:3);
      writeln
    end
    else if f = 0
      then writeln('Массив не содержит нечётных элементов')
      else writeln('Массив не содержит чётных элементов');
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2017, 01:28

обменять местами первый и последний четные элементы
В массиве X обменять местами первый и последний четные элементы.

Поменять местами первый и последний элементы списка
Форумчане пожалуйста кому не лень помогите решить задачу. Решить задачу по...

3. Написать программу, содержащую процедуру, которая меняет местами первый и последний элементы непустого списка. Если элементы не найдены, то выдать
3. Написать программу, содержащую процедуру, которая меняет местами первый и...


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

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

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