Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 15.03.2017
Сообщений: 6
1

Сортировка одномерных масивов

18.03.2017, 19:00. Показов 1103. Ответов 1
Метки нет (Все метки)

1.сгенерировать массив из 20 случайных целых чисел. Перезаписать в новый массив все четные элементы исходного массива. Отсортировать полученный массив по убыванию.
2.Сформировать два одномерных массива целых чисел одинакового размера. (Размер массива указывает пользователь). Осуществить поэлементное сложение массивов, результат сохранить в новом массиве. Получившийся массив отсортировать по возрастанию.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2017, 19:00
Ответы с готовыми решениями:

Сделать зеркальное отображение одномерных масивов ABC, массивы разной длины
Сделать зеркальное отображение одномерных масивов ABC, массивы разной длины. Помогите пожалуйста,...

Сортировка одномерных массивов
Может кто предоставить решение ?!? Дан целочисленный массив из 30 элементов. Массив заполняется...

Сортировка одномерных массивов
у меня второй вариант.составьте пожалуйста программу. то что вычеркнула ,это не надо.

Сортировка одномерных массивов
Дан целочисленный массив A(n) с элементами, сгенерированными случайными числами в диапазоне (-20,...

1
1748 / 1340 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
18.03.2017, 20:12 2
Лучший ответ Сообщение было отмечено Alexandrsprite как решение

Решение

1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=20; m=10;
var
  a:array[1..n] of integer;
  b:array[1..m] of integer;
  i,j,c:integer;
begin
  randomize;
  write('Первый массив: ');
  for i:=1 to n do begin
    a[i]:=random(101); write(a[i],' ');
    if not odd(i) then b[i div 2]:=a[i];
  end;
  for i:=m downto 1 do
    for j:=1 to i-1 do
      if b[j]<b[j+1] then begin
        c:=b[j]; b[j]:=b[j+1]; b[j+1]:=c;
      end;
  writeln; write('Второй массив: ');
  for i:=1 to m do
    write(b[i],' ');
end.
Добавлено через 6 минут
2:
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
type mas=array [1..100] of integer;
procedure vvod(var a:mas; n:integer);
  var i:byte;
  begin
    for i:=1 to n do begin
      a[i]:=random(101); write(a[i],' ');
    end;
  end;
var
  a,a2,b:mas;
  i,j,c,n:integer;
begin
  randomize;
  write('N = '); readln(n);
  write('Первый массив: '); vvod(a,n); writeln;
  write('Второй массив: '); vvod(a2,n); writeln;
  for i:=1 to n do b[i]:=a[i]+a2[i];
  for i:=n downto 1 do
    for j:=1 to i-1 do
      if b[j]>b[j+1] then begin
        c:=b[j]; b[j]:=b[j+1]; b[j+1]:=c;
      end;
  write('Третий массив: ');
  for i:=1 to n do write(b[i],' ');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2017, 20:12

Сортировка одномерных массивов методом выбора
Помогите пожалуйста. 1. Создать с помощью генератора случайных чисел массив целых чисел в...

Сортировка одномерных массивов методом вставки
Помогите пожалуйста. 2. Создать с помощью генератора случайных чисел массив целых чисел в...

Сортировка одномерных массивов методом «пузыря»
Помогите пожалуйста. 3. Создать с помощью генератора случайных чисел массив действительных чисел...

Объединение двух одномерных масивов
Извените за тупую тему но не можете падсказать как объеденить 2 одномерных масива галава неварит...


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

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

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