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

Из положительных и отрицательных элементов исходного массива сформировать два новых

25.10.2013, 18:12. Просмотров 1123. Ответов 1
Метки нет (Все метки)

3*. Составьте программу формирования из массива A(N) двух массивов, в которых первый массив заполнен положительными, а второй – отрицательными элементами.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2013, 18:12
Ответы с готовыми решениями:

Массив: Сформировать из элементов двух массивов два новых: один - из положительных, а второй - из отрицательных...
Даны два одномерных массива целых чисел (массив A, состоящий из n элементов, массив B - из m...

Сформировать из элементов массивов А, В два новых массива C, D по правилу
Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из...

Сформировать два массива из элементов исходного
Составьте программу формирования из массива A(N) двух массивов, в которых первый массив заполнен...

Сформировать два новых массива, в первом будут номера нулевых элементов массива
Дан массив действительных чисел. Сформировать два новых массива, в первом будут номера нудевых...

Сформировать из элементов исходных массивов два новых массива по правилу
Даны два одномерных массива целых чисел (массив A, состоящий из n элементов, массив B - из m...

1
Kodzaev
3012 / 1900 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
25.10.2013, 18:29 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
var
  a, b, c: array [1..100] of integer;
  i, n, t, k: integer;
 
begin
  Write('Введите количество элементов: ');
  Readln(n);
  for i := 1 to n do
  begin
    a[i] := Random(101) - 50;
    if a[i] < 0 then
    begin
      t := t + 1;
      b[t] := a[i]
    end
    else
    begin
      k := k + 1;
      c[k] := a[i]
    end;
    Write(a[i]:4);
  end;
  Writeln;
  Writeln('Массив B: ');
  for i := 1 to t do
    Write(b[i]:4);
  Writeln;
  Writeln('Массив C: ');
  for i := 1 to k do
    Write(c[i]:4);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2013, 18:29

Сформировать из массива два новых: первый — из отрицательных элементов, второй — из положительных
Задать массив случайными вещественными числами в диапазоне значений от -90 до +100. Сформировать из...

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

Сформировать новый массив, из отрицательных значений элементов исходного массива
Добрый день, помогите пожалуйста с задачей в паскале : Дан линейный массив, содержащий N элементов...


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

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

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