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

Массив: Переписать все четные значения в обратном порядке

20.09.2021, 11:12. Показов 1404. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Массив: Переписать все четные значения в обратном порядке
пример 2 5 3 7 4 6 4 5 9
ответ 4 5 3 7 6 4 2 5 9
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.09.2021, 11:12
Ответы с готовыми решениями:

Переписать все элементы массива А в массив А1 в обратном порядке
Ввести массив А(n). Переписать все элементы массива А в массив А1 в обратном порядке. Массивы А и...

Переписать в новый массив все числа, в обратном порядке
Дан одномерный массив из целых чисел М(20). Переписать в новый массив все числа, в обратном порядке.

Массив: Переписать все нечетные значения в начало, а все четные в конец
дан одномерный массив, содержащий n значений. переписать все нечетные значения в начало, а все...

Переписать в файл G сначала все нечѐтные его символы, а затем все чѐтные в обратном порядке
Всем привет! Просьба помочь с решением задачи. Я в паскале не сильна ну совсем, поэтому не...

Переписать в файл G сначала все нечётные его символы, а затем все чётные в обратном порядке
Добрый день. Нужна ваша помощь. Дан символьный файл F. Переписать в файл G сначала все нечётные...

2
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
21.09.2021, 02:43 2
Лучший ответ Сообщение было отмечено l2020 как решение

Решение

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
35
36
37
38
39
40
41
42
43
44
45
46
program Project1;
 
const
  maxn = 10;
var
  n,i,j,k: integer;
  tmp: integer;
  a: array [1..maxn] of integer;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента массива (целые числа):');
      readln(a[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    write(a[i]:5);
  writeln;
 
  k:= n;
  for i:= 1 to n do
    if k < i then
      break
    else
      begin
        if (a[i] mod 2 = 0) then
          begin
            for j:= k downto 1 do
              if a[j] mod 2 = 0 then
                begin
                  tmp:= a[i];
                  a[i]:= a[j];
                  a[j]:= tmp;
                  break;
                end;
            k:= j-1;
          end;
      end;
 
  writeln('Новый массив: ');
  for i:= 1 to n do
    write(a[i]:5);
  readln;
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7763 / 4593 / 2822
Регистрация: 22.11.2013
Сообщений: 13,060
Записей в блоге: 1
21.09.2021, 11:07 3
Вместо 22-40:
Pascal
22
23
24
25
26
27
28
29
  i:=1; j:=n;
  repeat
    while (i<j) and Odd(a[i]) do Inc(i);
    while (i<j) and Odd(a[j]) do Dec(j);
    if i<j then begin
      t:=a[i]; a[i]:=a[j]; a[j]:=t; Inc(i); Dec(j);
    end else Break;
  until False;
0
21.09.2021, 11:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.09.2021, 11:07
Помогаю со студенческими работами здесь

Переписать в новый файл из исходного сначала все нечѐтные символы, а затем все чѐтные в обратном порядке
Здравствуйте. Дано задание. Дан символьный файл F. Переписать в файл G сначала все нечѐтные его...

Переписать массив (четные в обратном порядке, нечетные -в прямом)
Дан целочисленный массив A. Переписать в новый целочисленный массив B того же размера вначале все...

Массив: Переписать все числа в обратном порядке и вывести в новом массиве
1) Создать двумерный массив 5x5 , с элементами типа байт . Заполнить массив раномными числами ....

Функция: переписать значения элементов массива целых чисел в другой массив в обратном порядке
Вот задание: Написать функцию, которая переписывает значения элементов массива целых чисел в...

Заполнить одномерный массив целыми числами. Переставить в обратном порядке все четные по значениям элементы
Заполнить одномерный массив из N элементов целыми числами. Переставить в обратном порядке все...


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

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

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