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

Сортрировка массивов!

22.10.2019, 22:09. Просмотров 699. Ответов 1


Элементы массива:4,-5,-6,3,0,-2,8,-3,1
1.Вывести на экран нечетные элементы массива.
2.Замените наибольший элемент массива на наименьший.
3.Найти сумму элементов массива кратных 2.

Элементы массива:-4,5,-6,0,1,-2,8,-5,-1
4.Вычислите разность между удвоенным наименьшим и наибольшим элементами массива .
5.Найти сумму нечетных отрицательных элементов массива.
6.Замените отрицательные элементы массива на положительные, а положительные на отрицательные .


Элементы массива:4,-5,-6,3,0,-2,8,-3,1
7.Составить массив, элементами которого являются элементы данного массива записанные в обратном порядке.
8.Поменять местами соседние элементы массива.
9.Отсортировать массив по возрастанию.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2019, 22:09
Ответы с готовыми решениями:

Даны 5 одномерных массивов, найти среднее значение этих массивов
Даны 5 одномерных массивов, найти среднее значение этих массивов! Помогите,совсем не знаю основы

Содержимое массивов сортируется по возрастанию. Затем из двух массивов (длины K и N) сформируйте массив
Всем приветы 8-) Помогите с 2 задачами: 2)Напишите программу, которая организует хранение в...

Вывод элементов массивов, сортировка массивов
вот ссылки program 1аЬ4; uses crt; const е=0.0010; d=l.Зе-7; var a, b, г, s, х, fa, fг, n, с...

Сортрировка массива. Подпрограммы
Дан линейный массив из 15 целых чисел. Пересортировать массив по закону: первый меняется с...

1
2303 / 729 / 534
Регистрация: 15.01.2019
Сообщений: 2,297
23.10.2019, 09:37 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
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
program zadanie3;
const
  n = 9;
var
  a: array[1..n] of integer = (4,-5,-6,3,0,-2,8,-3,1 ); // Переменная для хранения массива.
  b: array[1..n] of integer; // Переменная для хранения массива.
  i: integer; // Вспомогательная переменная для организации циклов.
  minelem: integer; // Переменная для хранения значения минимального по значению элемента.
  maxelem: integer; // Переменная для хранения значения минимального по значению элемента.
  sum: integer; // Переменная для хранения значения суммы элементов.
  indmin: integer; // Переменная для хранения значения индекса элемента с минимальным значением.
  indmax: integer; // Переменная для хранения значения индекса элемента с максимальным значением.
begin
  Writeln('Исходный массив:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  Writeln('Нечетные элементы массива:');
  for i:= 1 to n do
    if not(a[i] mod 2 = 0) then
      write(a[i]:5);
  Writeln;
  minelem:= a[1];
  for i:= 2 to n do
    if a[i] < minelem then
      begin
        minelem:= a[i];
        indmin:= i;
      end;
  Writeln('Элемент массива с минимальным значением: a[',indmin,'] = ', minelem);
  maxelem:= a[1];
  for i:= 2 to n do
    if a[i] > maxelem then
      begin
        maxelem:= a[i];
        indmax:= i;
      end;
  Writeln('Элемент массива с максимальным значением: a[',indmax,'] = ', maxelem);
  b:= a;
  b[indmax]:= b[indmin];
  Writeln('Массив, в котором элемент с максимальным значением заменен на элемент с минимальным значением:');
  for i:= 1 to n do
    write(b[i]:5);
  Writeln;
  sum:= 0;
  for i:= 1 to n do
    if (a[i] mod 2 = 0) then
      sum:= sum + a[i];
  Writeln('Сумма элементов массива, кратных 2: ', sum);
  Readln;
end.
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
program zadanie4;
const
  n = 9;
var
  a: array[1..n] of integer = (-4,5,-6,0,1,-2,8,-5,-1 ); // Переменная для хранения массива.
  i: integer; // Вспомогательная переменная для организации циклов.
  minelem: integer; // Переменная для хранения значения минимального по значению элемента.
  maxelem: integer; // Переменная для хранения значения минимального по значению элемента.
  sum: integer; // Переменная для хранения значения суммы элементов.
 
begin
  Writeln('Исходный массив:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  minelem:= a[1];
  for i:= 2 to n do
    if a[i] < minelem then
      minelem:= a[i];
  Writeln('Элемент массива с минимальным значением: ', minelem);
  maxelem:= a[1];
  for i:= 2 to n do
    if a[i] > maxelem then
      maxelem:= a[i];
  Writeln('Элемент массива с максимальным значением: ', maxelem);
  Writeln('Значение выражения 2*min - 2*max: ', 2*minelem - 2*maxelem);
  sum:= 0;
  for i:= 1 to n do
    if not(a[i] mod 2 = 0) and (a[i] < 0) then
      sum:= sum + a[i];
  Writeln('Сумма нечетных отрицательных элементов массива: ', sum);
  for i:= 1 to n do
    a[i]:= - a[i];
  Writeln('Массив в котором всем элементам массива изменили знак:');
  for i:= 1 to n do
    write(a[i]:5);
  Readln;
end.
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 zadanie5;
const
  n = 9;
var
  a: array[1..n] of integer = (4,-5,-6,3,0,-2,8,-3,1 ); // Переменная для хранения массива.
  b: array[1..n] of integer; // Переменная для хранения массива.
  i,j: integer; // Вспомогательные переменные для организации циклов.
  tmp: integer;  // Промежуточная переменная для организации сортировки элементов массива.
begin
  Writeln('Исходный массив:');
  for i:= 1 to n do
    write(a[i]:5);
  Writeln;
  for i:= 1 to n do
    b[n-i+1]:= a[i];
  Writeln('Новый массив с элементами, которые записаны в обратном порядке:');
  for i:= 1 to n do
    write(b[i]:5);
  Writeln;
  b:= a;
  i:= 1;
  while i < n-1 do
    begin
      tmp:= b[i];
      b[i]:= b[i+1];
      b[i+1]:= tmp;
      i:= i+2
    end;
  Writeln('Новый массив с элементами которые поменялись местами попарно:');
  for i:= 1 to n do
    write(b[i]:5);
  Writeln;
  b:= a;
  for i:= 1 to n-1 do
    for j:= i+1 to n do
      if b[i] > b[j] then
        begin
          tmp:= b[i];
          b[i]:= b[j];
          b[j]:= tmp;
        end;
  Writeln('Массив, отсортированный по возрастанию:');
  for i:= 1 to n do
    write(b[i]:5);
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2019, 09:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Записать в файл f2 последовательность массивов, получающихся преобразованием исходных массивов
Pascal Дан файл h1, компонентами которого являются массивы целых чисел a0,a1,...,a7. Записать в...

В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов
Заданы два массива A(N) и B(M). В каждом из массивов найти наименьшее значение и умножить на него...

Типизированные файлы. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов
Дан файл Н1, элементами которого являются массивы целых чисел а0,а1,…,а4. Записать в файл Н2...

программы усложненной структуры, обработка двухмерных массивов, использование стандартных функций для работы с массивами, сортировка массивов.
Искала задачи, нашла в с++, а нужно в паскале сотворить следующее. Использование стандартных...


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

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

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