program sort;
var
matr:array[1..100,1..100] of integer;
mas:array[1..1000] of integer;
i,j,m,kol,c:integer;
begin
randomize;
write('введите m ') ;
readln(m);
for i:=1 to m do
begin
for j:=1 to m do
begin
matr[i,j]:=random(101)-50;
write(matr[i,j]:4);
end;
writeln;
end;
kol:=0;
for j:=1 to m do
begin
for i:=1 to m-j do
begin
if matr[i,j] >=0 then
begin
kol:=kol+1;
mas[kol]:=matr[i,j];
end;
end;
end;
writeln;
writeln('до сортировки: ') ;
for i:=1 to kol do
write(mas[i]:4);
writeln;
writeln('после сортировки: ') ;
for i:=1 to kol-1 do
begin
for j:=i+1 to kol do
begin
if mas[i]>=mas[j] then
begin
c:=mas[i];
mas[i]:=mas[j];
mas[j]:=c;
end;
end;
end;
for i:=1 to kol do
write(mas[i]:4);
readln;
end.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.05.2010, 21:41

Ответы с готовыми решениями:

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

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

Сортировка массивов
Для значений i=1,2,...,n вычислить число сочетаний из n по i и занести результаты в массив с=(с1,...

сортировка массивов
сформировать одномерный массив, состоящий из положительных элементов, заданной квадратной...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.05.2010, 21:41

Помогаю со студенческими работами здесь

Сортировка массивов
Даны целые числа а1,а2,...аn.Получить в пордке возрастания все различные числа,входящие в...

сортировка массивов
дана квадратная матрица N*M, состоящая из натуральных чисел. зеркально отразить ее элементы...

Сортировка массивов
Я вообще не понимаю как сортировать массивы,приведи те кто-нибудь пример сортировки самым простым...

Сортировка массивов
В городе имеется m банков. Известны величины задолженностей банков друг другу. Расположить...

Сортировка массивов
Помогите, я уже не могу ничего придумать.. 1)Сортировать вставкой рядки массива по возрастанию...

Сортировка массивов
Дан одномерный массив массив. Получить из него второй массив содержащий только четные элементы...

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

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх