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

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

25.12.2008, 22:37. Показов 9996. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста!

Дан массив, состоящий из N букв латинского алфавита

а) Заполнить массив датчиком случайных чисел
б) вывести исходный массив на экран
в) преобразовать массив по правилу: в первой половине переставить элементы в обратном порядке, во второй половине - заменить все отрицательные элементы нулями (дополнительного массива не заводить).
г) вывести полученный массив на экран
д) отсортировать массив в порядке убывания методом пузырька и вывести отсортированный массив на экран

Заранее всех благодарю!!!

Добавлено через 5 минут 58 секунд
Помогите!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2008, 22:37
Ответы с готовыми решениями:

Одномерные массивы и указатели (найти количество элементов массива, равных 0, сумму элементов массива...)
Помогите пожалуйста разработать программу и реализовать интуитивный понятный интерфейс (используя...

Удаление, добавление, перестановка, сортировка элементов массива
Постановка задачи: 1) Сформировать массив из n элементов с помощью датчика случайных чисел (n...

Сортировка первых N<12 элементов массива по возрастанию методом пузырька
Здравствуйте! Помогите пожайлуста! Составить программу упорядочения первых N&lt;12 элементов по...

Одномерные массивы. Образуйте массив из элементов массива А(М), каждый из которых больше любого элемента массива B (N)
Даны два одномерных массива А(М) и B (N). Образуйте массив из элементов массива А(М), каждый из...

1
3 / 3 / 3
Регистрация: 24.12.2008
Сообщений: 15
27.12.2008, 15:43 2
Лучший ответ Сообщение было отмечено ChertYaGa как решение

Решение

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
55
56
57
58
59
60
61
62
63
uses crt;
 
var
 a:array[1..255] of integer;
 i,j:integer;
 n,t:integer;
 
procedure sort;
var
  i,t:integer;
  ok:boolean;
begin
  repeat
    ok:=true;
    for i:=1 to n-1 do
      if a[i]<a[i+1] then
        begin
          t:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=t;
          ok:=false;
        end;
  until ok;
end;
 
 
begin
  repeat
    clrscr;
    randomize;
    write('Input array size: '); readln(n);
    writeln;
    if n mod 2<>0 then begin
      write('Input div2 n!');
      readkey;
    end;
  until n mod 2=0;
 
  for i:=1 to n do begin
    a[i]:=random(41)-20;               {zapolnenie [-20;20]}
    write(a[i],' ');                   {vivod}
  end;
 
  j:=(n div 2)+1;
 
  for i:=1 to j div 2 do begin         {zamena 1st polovini mas}
    t:=a[i];
    a[i]:=a[j-i];
    a[j-i]:=t;
  end;
 
  for i:=j to n do                     {zamena 2nd polovini mas}
    if a[i]<0 then a[i]:=0;
 
  writeln; writeln;
  for i:=1 to n do write(a[i],' ');
 
  sort;
  writeln; writeln;
  for i:=1 to n do write(a[i],' ');
 
  readkey;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2008, 15:43
Помогаю со студенческими работами здесь

Одномерные массивы (вычислить произведение элементов, сумму элементов массива между первым и последним нулевыми, преобразовать)
Здравствуйте, помогите пожалуйста... мне нужно сделать программу для работы с одномерным...

Динамические одномерные массивы. Удаление и вставка элементов
Задание: Сформировать одномерный массив целых чисел, используя датчик случайных чисел. Распечатать...

Удаление, перестановка элементов массива
Добрый день, тру прогеры :) помогите с 3 задачами: 1.Дан массив целых чисел из N (1&lt;=N&lt;=15)...

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


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

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

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