Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 05.12.2011, 18:54   #1
Carter
Пользователь
 
Регистрация: 21.08.2011
Сообщений: 15
По умолчанию одномерный массив

упорядочить элементы массива по возрастанию до первого положительного элемента (программу составить при помощи процедур и функций)
Carter вне форума   Ответить с цитированием
Старый 05.12.2011, 19:22   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,648
По умолчанию

Код:
type arrayR = array[1..100] of real;
{......}
var mas:arrayR;
{......}
procedure bubble(item:arrayR; n:integer);
var
a,b:integer;
t:real;
begin
for a:=1 to n-1 do
for b:=n-1 downto a do
if item[b-1]>item[b] then
begin
{Перестановка}
t:=item[b-1];
item[b-1]:=item[b];
item[b]:=t
end
end;
{тут ввод массива}
i:=1;
while (mas[i]<=0) and (i<=n) do
inc(i);
bubble(mas,i);
{и  вывод массива c вас}
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив и Двумерный массив eugene1437 Общие вопросы C/C++ 15 25.05.2011 19:17
Одномерный массив , двухмерный массив Woxx Паскаль, Turbo Pascal, PascalABC.NET 0 10.09.2010 09:28
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. Marishkaa Помощь студентам 2 12.01.2010 17:54
Одномерный массив AlexPavL Помощь студентам 1 28.12.2009 19:51
Двумерный массив, одномерный массив. Branbal Помощь студентам 14 18.11.2009 13:40


14:45.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.