сортирооовкаа

[quer]

в общем, задание такое. надо отсортировать те числа, в которых нет цифры Z. он сортирует, но не берет в счет, когда Z последняя цифра..помогите((

алг Сортировка_Фибоначчи
нач
цел n
нц
вывод "размер:"; ввод n
кц при n>0
цел a,b
вывод "диапазон:"; ввод a,b
цел таб A[1:n]

генерация_массива(n,a,b,A)
вывод_массива(n,A)
цел z
линейный_выбор_с_обменом(n,A)
вывод "отсортир.массив:"
вывод_массива(n,A)
кон

алг генерация_массива(цел n,a,b,рез цел таб A[1:n])
нач
цел i
нц для i от 1 до n
A[i]:=int(rnd(b-a))+a
кц
кон

алг вывод_массива(цел n,цел таб A[1:n])
нач
цел i
нц для i от 1 до n
вывод A[i],' '
кц
вывод нс
кон

алг лог цифры(цел n,z)
нач
цел S, a, b
b:=int(abs(n))
нц пока b>0
a:=mod(b,10); b:=div(b,10)
если a=z то знач:=нет иначе если a<>z то знач:=да все 
все
кц
кон

алг линейный_выбор_с_обменом(цел n,арг рез цел таб A[1:n])
нач
цел i,j,x,k,z
ввод z
нц для i от 1 до n-1
если цифры(A[i],z)=да то
нц для j от i+1 до n
если цифры(A[j],z)=да то
если A[i]>A[j] то x:=A[i]; A[i]:=A[j]; A[j]:=x
все
все
кц
все
кц
кон

[Smitt&Wesson]

сортирооовкаа

[STEB]А без ООО, и АА никак?[/STEB]

[Человек_Борща]

А это вообще в каком языке такой безобразный русский синтаксис? Это же голову сломать можно читая эту хрень.

[Smitt&Wesson]

Сообщение от Человек_Борща

А это вообще в каком языке такой безобразный русский синтаксис? Это же голову сломать можно читая эту хрень.

А я её и не читал, так, бегло взглянул и всё понял

[quer]

это типа Кумир

[whatever]

Если кому интересно
Сам гуглил. Плохо понимаю, зачем огород городить? FPC для этих целей куда удобнее.

[Smitt&Wesson]

Сообщение от quer

это типа Кумир

Братишка, определись, чего ты хочешь? Иначе этот холивар может модераторам надоесть. А они здесь такие, могут и закрыть темку никого не ставя в известность.

[quer]

видимо не туда заглянула. тут не помогут, упоротые вы все какието

[quer]

программа Кумир, я будто знаю зачем преподу эта херня, но никуда не деться

[Smitt&Wesson]

Сообщение от quer

видимо не туда заглянула. тут не помогут, упоротые вы все какието

Туда, туда. Лапонька, объясни нам, бестолочам, чего всё-таки нужно?
Я мысли умею читать, толко нужно, хотя-бы с регионом определиться.
Не могу же я по всей планете рыскать.

нач
 цел n
 нц
 вывод "размер:"; ввод n
 кц при n>0
 цел a,b
 вывод "диапазон:"; ввод a,b
 цел таб A[1:n]

А это что за хрень? Нужно хотя-бы обозвать её как-то.
Мы тут, люди тупые, по определению юзерскому, нам-бы чё попроще, да повнятнее.