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

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

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

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

Ответ
 
Опции темы
Старый 23.12.2008, 19:05   #1
юра 3
 
Регистрация: 23.12.2008
Сообщений: 4
По умолчанию Массив

Помогите сделать до конца задачу.

2. Заполнить одномерный массив А(10) различными числами. Заменить отрицательные числа на нули и отсортировать полученную последовательность по возрастанию.

Задачу сделал всё работает, но как отсортировать полученную последовательность по возрастанию?

Вот задача:

program laba6_2;
const n=10;
var
i,j: integer;
a:array [1..10] of integer;
begin
writeln('__________________________ ____________________________');
randomize;
for i:=1 to n do
begin
a[i]:=random (30)-10;
write(a[i]:3);
end;
writeln;
writeln;
for i:=1 to n do
begin

if a [i]<0 then
a[i]:=a[i]*(0);
end;

for i:=1 to n do
write (a[i]:3);
readln; writeln;
end.
юра 3 вне форума   Ответить с цитированием
Старый 23.12.2008, 19:15   #2
Teor
Пользователь
 
Регистрация: 20.12.2008
Сообщений: 46
По умолчанию

Код:
program laba6_2;
const n=10;
var
i,j,c: integer;
a:array [1..10] of integer;
begin
writeln('_________________________________________ _____________');
randomize;
for i:=1 to n do
begin
a[i]:=random (30)-10;
write(a[i]:3);
end;
writeln;
writeln;
for i:=1 to n do
begin

if a [i]<0 then
a[i]:=a[i]*(0);
end;
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[j+1] then begin
c:=a[j];
a[j]:=a[j+1];
a[j+1]:=c;
end;

for i:=1 to n do
write (a[i]:3);
readln; writeln;
end.
Teor вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Упорядочить массив в порядке возрастания и напечатать входной и исходный массив. TheVenny Помощь студентам 3 26.11.2008 16:06
массив TheVenny Помощь студентам 1 22.11.2008 02:50
массив begemotikdin Паскаль, Turbo Pascal, PascalABC.NET 5 04.06.2008 22:58
Массив Кронос Общие вопросы Delphi 4 29.05.2008 21:36
массив {С++} Влдислаав3911 Помощь студентам 0 28.05.2008 23:21