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

Переставить элементы массива так, чтобы сначала располагались все 2, потом 3, затем все 4 и, наконец, все 5

22.05.2017, 11:19. Показов 1962. Ответов 1
Метки нет (Все метки)

В Массиве X(5,7), Каждый элемент равен 2,3,4 или 5 переставить элементы массива так чтобы сначала располагались все 2, потом 3, Затем все 4 и, наконец, все 5.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2017, 11:19
Ответы с готовыми решениями:

Переставить элементы в массиве так, чтобы сначала следовали все отрицательные числа, а затем все остальные
Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала...

В одномерном массиве переставить элементы таким образом, чтобы сначала шли все отрицательные, затем нулевые, затем положительные
Люди, кто разбирается в массивах, помогите пожалуйста написать программу на pascale буду...

Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные
Пожалуйста помогите, нужно решить 3 задачи 1. Дан массив А (25). Расположить все элементы в...

Упорядочить компоненты вектора так, чтобы сначала размещались все отрицательные компоненты, затем все положительные
Дан вектор А(а1,а2,...,а100). Упорядочить компоненты вектора так, чтобы сначала размещались все...

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
22.05.2017, 20:24 2
Лучший ответ Сообщение было отмечено levipatov как решение

Решение

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
47
48
49
50
51
52
53
54
const
  n = 5;
  m = 7;
 
var
  a: array[1..n, 1..m] of integer;
  b: array[1..n * m] of integer;
  tmp, i, j, k: integer;
 
begin
  randomize;
  k := 0;
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      inc(k);
      a[i, j] := random(4) + 2;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  k := 0;
  writeln('Полученный массив:');
  for i := 1 to n do
    if i mod 2 <> 0 then
      for j := 1 to m do
      begin
        inc(k);
        b[k] := a[i, j];
      end else
      for j := m downto 1 do
      begin
        inc(k);
        b[k] := a[i, j];
      end;
  for i := 1 to k - 1 do 
    for j := i + 1 to k do
      if b[i] > b[j] then begin
        tmp := b[i]; 
        b[i] := b[j]; 
        b[j] := tmp;
      end;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := b[j + m * (i - 1)];
      write(a[i, j]:4);
    end;
    writeln;
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2017, 20:24
Помогаю со студенческими работами здесь

Вывести все нулевые элементы, затем все положительные элементы в порядке возрастания, затем все отрицательн
Дано натуральное число N и массив из N элементов. Составить программу, позволяющую выполнить...

Напечатать элементы файла f в следующем порядке: сначала – все числа, меньшие a, затем – все числа из отрезка
Пмоогите пожалуйста написать программный код: Используя очередь, решить следующую задачу. TYPE...

Массив. Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы
Тема Одномерные массивы В массиве X(1:n) каждый элемент равен 0, 1 или 5. Переставить элементы...

Переставить элементы массива так, чтобы сначала располагались все 0, затем 1, затем 2
Общие указания при составлении программ к данной теме: 1. Размер массива задать константой в блоке...


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

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

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