Удалить первый элемент с заданным значением. Сдвинуть массив циклически на К элементов в право

[GydZu]

Помогите пожалуйста решить задачу с использование процедуры. "Сформировать одномерный массив целых чисел, используюя генератор случайных чисел. расспечатать полученный массив.Удалить первый элемент с заданным значением. Сдвинуть массив циклически на К элементов в право".

за ранее благодарен.

[Sazary]

Чем помочь? Что не получается? Где ваши наработки?

Вот вам про сдвиг: http://programmersforum.ru/showthread.php?t=35110
Пользуйтесь поиском.

[GydZu]

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

[Sazary]

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

а вот дальше "удалить первый элемент с заданным значением." - первый элемент массива, или первый элемент в массиве который соответствует в веденному с клавы?

Это значит с клавы вводится число. Вы его ищете в массиве и удаляете (в данном случае, просто сдвигаете все, что правее этого элемента, на 1 позицию влево. И уменьшаете на 1 размер массива).

и "Сдвинуть массив циклически на К элементов в право" К тоже с клавы вводится? и как это все осуществить с помощью процедуры?

Да, тоже.
Будет не одна процедура, а две (одна для удаления, вторая - для сдвига).

[GydZu]

что то я с процедурами запутался

[Sazary]

что то я с процедурами запутался

Каким образом? Передавайте в процедуру массив и его размер. И делайте там с ним то, что надо, как бы вы это делали в теле программы.

[GydZu]

что то не получаются процедуры. не могу удалить элемент. тело програмы написал, а процедуры не могу может с утра получится на свежую голову.

[Sazary]

не могу удалить элемент

Пусть есть массив A размером N элементов.
И нужно удалить элемент с индексом F.
Тогда делаем так:

dec(N); { уменьшаем размер, т.к. теперь массив на 1 элемент меньше }
for i:=F to N do
 A[i] := A[i+1];

[GydZu]

не получается

Program Massiv;

Const n = 10;
Type myarray = Array [1..n] Of Integer;
Var A : myarray;
s,k,i:integer;

Procedure Delete(k:Integer;Var a:myarray);
Var i,n : Integer;
Begin
dec(N);
for i:=k to N do
A[i] := A[i+1];
End;

Procedure Print1(n1: Integer; m: myarray ); {процедура вывода на экран }
Var i : Integer;
Begin
For i:=1 To n1 Do Write(m[i]:4);
Writeln;
end;
begin
randomize; writeln ('massiv M');
for i:=1 to n do
begin a[i]:=random (50)-25;
write(a[i]:4) ;
end; writeln;
writeln(' vvedi chislo kotoriy nado udalit',k);read(k);

Delete (k,A); {удаление элемента k} ;
print1(n-1,a) ;
end.

[Sazary]

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

не получается

Во-первых, код заключайте в теги CODE ("#" на панели в окне редактирования).
Во-вторых, что не получается?
Сразу бросается в глаза строчка:

Var i,n : Integer;

У вас N - размер массива. Так почему переменная локальная? Передавайте ее вместе с массивом.