Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 24.03.2016
Сообщений: 5

Дано 12 чисел. Напечатать сначала все отрицательные из них, а затем все остальные

26.03.2016, 15:45. Показов 2889. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано 12 чисел. Напечатать сначала все отрицательные из них, а
затем все остальные. Задать массив в двух вариантах: исходные массивы
задать типизированными константами и элементы исходных массивов ввести
через оператор ввода.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.03.2016, 15:45
Ответы с готовыми решениями:

Создать файл целых чисел. Напечатать сначала все одноцифровые числа, а затем - все остальные
создать файл целых чисел. просматривая его только один раз, напечатать сначала все одноцифровые числа, а затем - все остальные. при выводе...

Напечатать сначала все отрицательные из чисел, затем - все положительные
пусть дано 100 чисел. напечатать сначала все отрицательные из них, за тем- все положительные.

Переставить элементы в массиве так, чтобы сначала следовали все отрицательные числа, а затем все остальные
Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа, а затем...

2
Программист
 Аватар для Arigato
307 / 182 / 176
Регистрация: 05.12.2013
Сообщений: 685
Записей в блоге: 5
26.03.2016, 22:25
Лучший ответ Сообщение было отмечено Aleks55 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
const
  a: array[1..12] of integer=(4,6,-2,0,-7,5,3,7,-1,2,4,5);
var
  i: integer;
begin
  for i:=1 to 12 do
    if a[i]<0 then write(a[i],' ');
  for i:=1 to 12 do
    if a[i]>=0 then write(a[i],' ');
end.
Для варианта с вводом смотрите шаблон решения задач с массивами
1
0 / 0 / 0
Регистрация: 24.03.2016
Сообщений: 5
27.03.2016, 06:05  [ТС]
Спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.03.2016, 06:05
Помогаю со студенческими работами здесь

Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные
Пожалуйста помогите, нужно решить 3 задачи 1. Дан массив А (25). Расположить все элементы в таком порядке: сначала все положительные,...

Записать в массив сначала все положительные, затем все отрицательные числа и нули
Пожалуйста докажите код выделенный в комментарии. Задание:&quot;Дан массив вещественных чисел , содержащий 25 элементов , записать в этот же...

Вывести на экран дисплея в строку сначала все отрицательные из них, а затем – все остальные
Дано 25 чисел. Вывести на экран дисплея в строку сначала все отрицательные из них, а затем – все остальные.

Напечатать сначала все отрицательные числа последовательности, а затем — все положительные
Дана последовательность из N целых чисел, N+1 элемент которой равен нулю (последовательность не содержит больше нулей кроме этого)....

Преобразовать массив таким образом , чтоб сначала располагались отрицательные числа, а затем все остальные.
Задача 1 Преобразовать массив таким образом , чтоб сначала располагались отрицательные числа, а затем все остальные. Задача 2 Дана...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru