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

Вывести отрицательные элементы массива

17.12.2015, 15:33. Просмотров 835. Ответов 1
Метки нет (Все метки)

Дан массив из 10 целых чисел, вывести отрицательные элементы массива

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

Вывести на экран все отрицательные элементы массива кратные 13
В эту тему я плохо "въехал", массивы и интервалы с ними, вопщем прошу написать...

Заменить отрицательные элементы массива нулями и вывести преобразованный массив на экран
Размер числового массива и его элементы вводятся с клавиатуры. Заменить...

Вывести сначала все положительные элементы массива, затем все отрицательные
Всем привет уважаемые. Нуждаюсь в помощи, помогите кто сможет. Вообщем вот в...

65. (7 б.) Дан массив A(n). Все положительные его элементы поместить в начало массива B(n), а отрицательные элементы – в начало массива C(n). Подсчита
65. (7 б.) Дан массив A(n). Все положительные его элементы поместить в начало...

Расположить элементы массива так, чтобы в начале располагались все отрицательные элементы, а затем положительные.
Расположить элементы массива так, чтобы в начале располагались все...

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
17.12.2015, 16:34 #2
Лучший ответ Сообщение было отмечено Jhon Sena как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const
    n = 10;
var
    ar: Array[1..n] Of ShortInt;
    i: 1..n;
begin
    Randomize(); Write('Original array:');
    for i := 1 to n do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
    end;
    WriteLn; Write('Negative elements:');
    for i := 1 to n do
        if (ar[i] < 0)
        then
            Write(ar[i]:4);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2015, 16:34

В массиве переставить местами первый и второй отрицательные элементы, третий и четвертый отрицательные элементы и т.д.
В массиве переставить местами первый и второй отрицательные элементы, третий...

Записать в начало массива Y положительные, а в конец - отрицательные элементы массива Х
Записать в начало массива Y положительные, а в конец - отрицательные элементы...

Заменить все отрицательные элементы массива на максимальный элемент массива
Дан одномерный массив из N элементов. Заменить все его отрицательные элементы...


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

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

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