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

Сформировать новый массив так, чтобы в начале шли положительные, потом нулевые и отрицательные

16.10.2012, 14:16. Показов 1830. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Разработать алгоритм в Паскале
Сформировать массив чисел А[N], а затем из него получить новый массив В[N] таким образом, чтобы в начале шли положительные элементы, потом нулевые и, наконец, отрицательные.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.10.2012, 14:16
Ответы с готовыми решениями:

Преобразовать массив так, чтобы сначала шли отрицательные, затем нулевые и положительные элементы
Составить программу, которая преобразует одномерный массив таким образом, чтобы сначала шли отрицательные, затем нулевые и положительные...

Сформировать массив так, чтобы сначала шли отрицательные элементы, затем положительные и, наконец, нулевые
HELP! люди срочно требуется ваща помошь, по масивам! вот задача: Задан массив y из n целых чисел. Сформировать массив z так чтобы в...

Переписать заданный массив в новый так, чтобы сначала шли положительные, затем отрицательные, затем нулевые элементы.
Всем привет, прошу помочь решить ошибку в коде, задание которого звучит как: Задан массив Z. Переписать его в массив Y так, чтобы в...

1
233 / 223 / 146
Регистрация: 19.03.2012
Сообщений: 369
16.10.2012, 15:06
Лучший ответ Сообщение было отмечено Julia94 как решение

Решение

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
Program arry;
Const n=5;     
Type mas = array[1..n] of real;
Var a,b:mas;
    i,j:integer;
BEGIN  
  Writeln ('Vvedite masiv chisel ');
  for i:=1 to n do begin
    Write ('a[',i,']');
    Readln (a[i]);
  end;
  j:=1;
  for i:=1 to n do begin    
    if a[i]>0 then begin
      b[j]:= a[i];
      j:=j+1;
    end;
  end;
    for i:=1 to n do begin    
    if a[i]=0 then begin
      b[j]:=a[i];
      j:=j+1;
    end;
  end;
  for i:=1 to n do begin    
    if a[i]<0 then begin
      b[j]:=a[i];
      j:=j+1;
    end;
  end;
  for i:=1 to n do begin
    Write (a[i],'  ');
  end;
  Writeln ;
  for i:=1 to n do begin
    Write (b[i],'  ');
  end;0
END.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.10.2012, 15:06
Помогаю со студенческими работами здесь

Переписать компоненты исходного файла в новый так, чтобы сначала шли положительные, потом отрицательные числа
не знаю как написать( язык pascal помогите пожалуйста Создать файл, компоненты которого являются целыми числами, отличными от нуля....

Сформировать массив Z таким образом, чтобы в начале шли отрицательные элементы массива Y, затем положительные
помогите решить, пожалуйста! Задан массив Y из N целых чисел. Сформировать массив Z таким образом, чтобы в начале шли отрицательные...

Разместить элементы массива так,чтоб сначала шли все положительные числа,а потом-отрицательные, не создавая новый массив
Дан массив из n целых чисел. Не используя новый массив, нужно разместить элементы массива так, чтобы сначала шли все положительные числа, а...

Переписать файл так, чтобы сначала шли положительные, потом отрицательные числа
Подскажите, пожалуйста, нужно ли что-то поменять или добавить в программу? Дан файл f, компоненты которого являются целыми числами....

Упорядочить массив: отрицательные элементы в начале массива, потом нулевые, а в конце положительные
Задан массив, содержащий N элементов. Требуется переприсвоить его элементы так, чтобы отрицательные элементы оказались в начале массива,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
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, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru