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

Возрастание или убывание элементов в массиве через процедуры

30.01.2017, 20:43. Просмотров 820. Ответов 1
Метки нет (Все метки)

Добрый вечер!
Помогите, пожалуйста!
Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию
Обязательно сделать через процедуры
Заранее благодарю
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2017, 20:43
Ответы с готовыми решениями:

Возрастание и убывание в числе
Дано число, требуется отсортировать сначала по возрастанию а потом по убыванию...

Переделка с возрастание на убывание
Дана небольшая программа. Ввожу элементы одномерного массива. Выводятся они в...

Ввод и вывод элементов массивов через процедуры
В векторе Z(m) определить сумму не-четных элементов.

Равна ли сумма элементов массива его произведению (через процедуры)
2.Сформировать одномерный массив случайным образом с интервалом от -55 до 55....

Найти среднее арифметическое элементов, лежащих выше главной диагонали, через процедуры и функцию
Доброго времени суток)Небольшая запара( Дана матрица В(6х6). Найти среднее...

1
Tosse
56 / 56 / 114
Регистрация: 09.12.2016
Сообщений: 143
31.01.2017, 12:14 #2
Лучший ответ Сообщение было отмечено derevyashka как решение

Решение

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
64
65
66
67
68
69
70
71
72
73
74
const
max = 1000;
type
Mas = array[1..max] of integer;
procedure sort1(var a:mas;x:integer);
var i, j, buf: integer;
 begin
 for i:=1 to x-1 do
     for j:=i+1 to x do
         if a[i] > a[j] then
            begin
            buf:=a[i];
            a[i]:=a[j];
            a[j]:=buf;
            end;
 end;
procedure sort2(var a:mas;x:integer);
var i, j, buf: integer;
 begin
 for i:=1 to x-1 do
     for j:=i+1 to x do
         if a[i] < a[j] then
            begin
            buf:=a[i];
            a[i]:=a[j];
            a[j]:=buf;
            end;
 end;
 
procedure vvod(var a:mas;x:integer);
var i:integer;
 begin
 for i:=1 to x do
     a[i]:= random(10);
 end;
 
procedure vyvod(var a:mas;x:integer);
 var i:integer;
 begin
 for i:=1 to x do
     write(a[i]:2);
writeln;
 end;
 
 procedure rez(var a:mas; x:integer);
 var i, k :integer;
  begin
  vvod(a,x);
  writeln('Исходный массив:');
  vyvod(a,x);
  writeln('Итоговый массив:');
  for i:=1 to x do
      if odd(a[i]) then
         inc(k);
  if  x - k > k then
      sort1(a,x)
  else
      sort2(a,x);
  vyvod(a,x);
   end;
  
 var a,b,c:mas;
  n,m,l:integer;
 begin
 writeln('Введите количество элементов первого массива');
 readln(n);
 rez(a,n);
 writeln('Введите количество элементов первого массива');
 readln(m);
 rez(b,m);
 writeln('Введите количество элементов первого массива');
 readln(l);
 rez(c,l);
  end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.01.2017, 12:14

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Выяснить каких элементов в массиве больше, четных или нечетных
2) дан целочисленный массив из 10 формируемый рандомно , выяснить каких...

Ответьте каких элементов положительних или отрицательных есть больше в массиве А (N, М)
Ответьте каких элементов положительних или отрицательных есть больше в массиве...


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

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

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