Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Sonne89
0 / 0 / 0
Регистрация: 15.09.2014
Сообщений: 6
1

Сформировать из массива два новых: первый — из отрицательных элементов, второй — из положительных

16.09.2014, 19:39. Просмотров 878. Ответов 1
Метки нет (Все метки)

Задать массив случайными вещественными числами в диапазоне значений от -90 до +100. Сформировать из него два массива: первый - из отрицательных элементов, второй - из положительных. Каждый из массивов отсортировать один в порядке возрастания, другой - убывания, разными способами.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.09.2014, 19:39
Ответы с готовыми решениями:

Сформировать третий а массива: первый - из отрицательных элементов, второй - из положительных
Сформировать третий а массива: первый - из отрицательных элементов, второй - из положительных.

Сформировать два массива: в первый включить четные элементы исходного массива, во второй – нечетные
Из одномерного массива сформировать два массива: в первый включить четные элементы исходного...

Сформировать два массива: в первый включить элементы исходного с четными номерами, а во второй с нечетными
помогите пожалуйста решить задачи=) язык программирования паскаль №2) задан массив а размерности...

Сформировать два массива : в первый включить элементы исходного с черными номерами, во второй с нечетными
Задан массив с количеством элементов n. Сформировать два массива : в первый включить элементы...

Из элементов массива сформировать два новых - из четных и нечетных элементов
Из одномерного массива произвольных чисел целых чисел сформировать 2 массива: A - массив четных...

1
ermolay
3435 / 2374 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
17.09.2014, 20:31 2
Лучший ответ Сообщение было отмечено Sonne89 как решение

Решение

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
const
  nmax = 100;
var
  a, b, c: array[1..nmax] of real;
  i, j, n, k1, k2: integer;
  t: real;
begin
  // определяем размер исходного массива
  write('Введите размер массива n (n <= ',nmax,'): ');
  readln(n);
  k1:=0; k2:=0;
  
  // исходный массив
  writeln('Исходный массив');
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random*191-90;
    write(a[i]:8:2);
    if a[i]<0 then begin
      inc(k1);
      b[k1]:=a[i];
    end else if a[i]>0 then begin
      inc(k2);
      c[k2]:=a[i];
    end;
  end;
  writeln; writeln;
  
  // массив отрицательных элементов
  writeln('Массив отрицательных элементов элементов:');
  if k1>0 then begin
    for i:=1 to k1 do write(b[i]:8:2);
    writeln;
  end else writeln('В исходном массиве нет отрицательных элементов');
  writeln;
  
  // массив положительных элементов
  writeln('Массив положительных элементов элементов:');
  if k2>0 then begin
    for i:=1 to k2 do write(c[i]:8:2);
    writeln;
  end else writeln('В исходном массиве нет положительных элементов');
  writeln;
  
  // сортируем массив отрицательных элементов
  for i:=2 to k1 do
    for j:=k1 downto i do
      if b[j-1]>b[j] then
      begin
        t:=b[j-1];
        b[j-1]:=b[j];
        b[j]:=t;
      end;
  writeln('Упорядоченный массив отрицательных элементов');
  for i:=1 to k1 do write(b[i]:8:2);
  writeln; writeln;
  
  // сортируем массив положительных элементов
  for i:=1 to k2-1 do
    for j:=i+1 to k2 do
      if c[i]<c[j] then
      begin
        t:=c[i];
        c[i]:=c[j];
        c[j]:=t;
      end;
  writeln('Упорядоченный массив положительных элементов');
  for i:=1 to k2 do write(c[i]:8:2);
  writeln; writeln;
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.09.2014, 20:31

Сформировать третий массив из отрицательных элементов 1 массива и положительных элементов 2 массива
Сформировать третий массив из отрицательных элементов первого массива и положительных элементов...

Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами
Задан массив размером K. Сформировать два массива, включая в первый четные элементы исходного...

Создать из матрицы два массива - из положительных и отрицательных элементов
Дан двумерный массив. Создать из него 2 массива, в первый поместить все положительные элементы, а...


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

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

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