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

Переписать отрицательные элементы массива Х последовательно в массив У

25.10.2013, 15:13. Просмотров 1752. Ответов 1
Метки нет (Все метки)

Задан массив Х. Переписать отрицательные элементы массива Х последовательно в массив У.
Вывести исходный массив Х и сформированный массив У.

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2013, 15:13
Ответы с готовыми решениями:

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

Переписать в массив y (n) отрицательные элементы массива х умноженные на 2
Дан массив х (n) . Переписать в массив y(n) отрицательные элементы массива х...

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X, состоящего из 6 элементов
Переписать подряд в массив Y положительные и в массив Z отрицательные элементы...

Переписать в массив B в убывающем порядке все отрицательные элементы массива А
Дан одномерный массив целых чисел A. Напишите программу, которая перепишет в...

Из массива X переписать подряд в массив Y вначале положительные, затем отрицательные элементы
Из массива X=(x1,x2,...,x50) переписать подряд в массив Y вначале...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,655
Записей в блоге: 1
26.10.2013, 08:59 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var X,Y:array[1..100] of integer;
    i,n,m:byte;
Begin
    write('Размерность массива: ');readln(n);
    writeln('Массива X');
    For i:=1 to n do
    Begin
      X[i]:=random(31)-15;
      write(X[i]:4);
      if X[i]<0 then 
      Begin
        inc(m);
        Y[m]:=X[i];
      End;
    End;
    writeln;
    writeln('Массива Y');
    For i:=1 to m do
     write(Y[i]:4);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2013, 08:59

Данн массив X (20), переписать в массив Y сначала все отрицательные элементы
Данн массив X (20), переписать в массив Y сначала все отрицательные элементы, а...

Целые положительные элементы переписать в массив C, а четные отрицательные массивы в B
Дан массив A из элементов (N). Целые положительные элементы переписать в массив...

Записать в массив B отрицательные, в массив C - положительные элементы массива A
Нужна программа в паскале АБЦ Дано: Массив А(10)(числа вводит пользователь)...


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

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

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