Developing.ru

1. Пройти в цикле по массиву, найти строку с числом К. Пусть она будет с номером А.
2. Все строки, начиная с М, кончая А+1 включительно, перенести на 1 вниз. Т. е. в М+1 строку копируется М-я, в М-ю - М-1-я и т.д.
3. В А+1-ю строку копируется М+1-я

Спасибо огромное!)
Парни,вот есть еще один вопрос..задачка,ну никто не знает как сделать..со многими разговаривал..а очень нужно)

Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел A[M,N], где M,N<=10. Вставить последнюю стоку после строки, в которой находится заданное число К.

Хотя вру, сам уже забыл, что подпрограмма str в Паскале - процедура, а не функция. Эх, ПХП зохавывает мозг ;)

[quote="Хыиуду"]BBB, Serge Bliznykov, спасибо за исправления, но мой код - как раз на Паскале ;) [/quote]
Хе, век живи, век учись :) /это я о себе/ Не знал (или напрочь забыл), что есть для работы с множествами процедуры Include / Exclude:

[i]Declaration:
procedure Include(var S: set of T; I:T);[/i]

Хотя мой код так же верен. Можно писать и так, и эдак.
Правда, тот же Help Паскаля в описании [b]Include[/b] примечает ( ;) ) :

[i]The construct Include (S,I) corresponds to S := S + (I) but the Include
procedure generates more efficient code.[/i]

BBB, Serge Bliznykov, спасибо за исправления, но мой код - как раз на Паскале ;)

[b]Serge_Bliznykov[/b], Да, конечно :)

[quote]for i:=1 to length([u][b]N[/b][/u]) do[/quote]
может всё же Length(s) ???? :-)))))

var s : string;
      i, N : longint;
      my_set : set of char;
      c : char;
begin
 str(N, s);
 for i:=1 to length(S) do
    my_set := my_set + [ s[i]];  { проверять на то, что s[i] уже содержится }
                                              { в my_set необязательно }
 for c:='0' to '9' do
    if c in my_set then
       writeln(c);
end.

[quote="Хыиуду"]s:=str(N);
for i:=1 to length(N) do
if not (s[i] in my_set) then include(s[i],my_set);
for c:='0' to '9' do
if c in my_set then write(c);[/quote]
Ну, на Паскале это выглядит как-то вот так :)
[code]
var s : string;
i, N : longint;
my_set : set of char;
c : char;
begin
str(N, s);
for i:=1 to length(S) do
my_set := my_set + [ s[i]]; { проверять на то, что s[i] уже содержится }
{ в my_set необязательно }
for c:='0' to '9' do
if c in my_set then
writeln(c);
end.[/code]

s:=str(N);
for i:=1 to length(N) do
if not (s[i] in my_set) then include(s[i],my_set);
for c:='0' to '9' do
if c in my_set then write(c);

Ну первую я сделал,а вот со второй..как-то я туплю..не могли бы вы код написать..хотя бы основные моменты)