массивы. удаление элементов

[Ananim-Pbl6ak]

Из последовательности удалить все элементы, имеющие целую часть, кратную одному из двух наперед заданных чисел.


вот пример:

Program Delete;
{Удаление четных чисел из массива целых}
Const
Dim = 20;
Type
TMassiv = Array[1..Dim] of Integer;
Var
Massiv : TMassiv;
J, I, Num, DelQuant : Byte;
Begin
Writeln ('Введите не более чем ',Dim,' целых чисел');
Writeln ('Конец ввода по ENTER');
Num := 0; {реальное число элементов в массиве}
While not EOLN do
Begin
Inc (Num);
Read (Massiv[Num]);
End;
Readln;
I := 0; {позиция наблюдателя на I-м элементе массива}
DelQuant := 0; {количество удаленных элементов}

Repeat
Inc (I); {сдвинуть наблюдателя вправо - перейти}
{к проверке следующего числа}
If Not Odd(Massiv[I]) then
begin {I-ое число четное, удалить его из массива}
Inc(DelQuant); {увеличить количество удаленных чи-сел}
Dec (Num); {уменьшить количество элементов в массиве}
For J := I to Num do
Massiv[J] := Massiv[J+1]; {сдвиг влево}
Dec (I) {переместить наблюдателя влево}
end;
Until I = Num; {повторять, пока не будут проверены все числа}
If DelQuant = 0
then {удалений не было}
Writeln('Массив не содержит четных элементов')
else {удаления были}
If Num <> 0
then
begin
Writeln ('Удалено ', DelQuant,' четных чисел');
Writeln ('Преобразованный массив');
For I := 1 to Num do Write (Massiv[I],' ');
Writeln
end
else {все числа удалены}
Writeln ('Массив пустой')
End.

[Sazary]

Сообщение от Ananim-Pbl6ak

вот пример:

Ну раз даже пример есть, то в чем проблема?
Для взятия целой части - trunc, для взятия остатка - mod.
А для кода - тег CODE.

[Ananim-Pbl6ak]

а поподробней как это будет выглядеть

[Sazary]

Наперед заданные числа - A и B.
Есть массив - mas.
В цикле перебираем элементы:

Если (trunc(mas[i]) mod A = 0) или (trunc(mas[i] mod B = 0) то
 удаляем этот элемент из массива.

[Ananim-Pbl6ak]

Program Delete;
{Удаление четных чисел из массива целых}
Const
Dim = 20;
Type
TMassiv = Array[1..Dim] of Integer;
Var
Massiv : TMassiv;
A, B, J, I, Num, DelQuant : Byte;
Begin
Writeln ('Введите не более чем ',Dim,' целых чисел');
Writeln ('Конец ввода по ENTER');
Num := 0; {реальное число элементов в массиве}
While not EOLN do
Begin
Inc (Num);
Read (Massiv[Num]);
End;
Readln;
I := 0; {позиция наблюдателя на I-м элементе массива}
DelQuant := 0; {количество удаленных элементов}

Repeat
Inc (I); {сдвинуть наблюдателя вправо - перейти}
{к проверке следующего числа}
If (trunc(mas[i]) mod A = 0) or (trunc(mas[i] mod B = 0) then
begin {}
Inc(DelQuant); {увеличить количество удаленных чи-сел}
Dec (Num); {уменьшить количество элементов в массиве}
For J := I to Num do
Massiv[J] := Massiv[J+1]; {сдвиг влево}
Dec (I) {переместить наблюдателя влево}
end;
Until I = Num; {повторять, пока не будут проверены все числа}
If DelQuant = 0
then {удалений не было}
Writeln('Массив не содержит элементов имеющих целую часть, кратную одному из двух чисел')
else {удаления были}
If Num <> 0
then
begin
Writeln ('Удалено ', DelQuant,' чисел имеющих целую часть, кратную одному из двух заданых чисел');
Writeln ('Преобразованный массив');
For I := 1 to Num do Write (Massiv[i],' ');
Writeln
end
else {все числа удалены}
Writeln ('Массив пустой')
End.



вот так?

[Sazary]

Сообщение от Ananim-Pbl6ak

вот так?

Попытался скомпилировать - выдает ошибки (неизвестные идентификаторы). Значит, не так.
Копи-паст - далеко не всегда хорошо.

Повторю еще раз: код заключайте в теги CODE!

[Ananim-Pbl6ak]

так кто что еще подскажет

[Sazary]

Сообщение от Ananim-Pbl6ak

и какой код ставить

Ну а вы посмотрите на код вашего примера. Потом на мой пример. И измените названия так, чтобы подходило. Еще ввод A и B нужно будет добавить.
Логически подумайте.

Или, в конце концов, почитайте текст ошибок, которые вам выдает компилятор.

[Ananim-Pbl6ak]

 Program Delete;
{}
Const
Dim = 20;
Type
TMassiv = Array[1..Dim] of Integer;
Var
Massiv : TMassiv;
A, B, J, I, Num, DelQuant : Byte;
Begin
Writeln('Введите два делителя');
Readln(A, B);
Writeln ('Введите не более чем ',Dim,' целых чисел');
Writeln ('Конец ввода по ENTER');
Num := 0; {реальное число элементов в массиве}
While not EOLN do
Begin
Inc (Num);
Read (Massiv[Num]);
End;
Readln;
I := 0; {позиция наблюдателя на I-м элементе массива}
DelQuant := 0; {количество удаленных элементов}

Repeat
Inc (I); {сдвинуть наблюдателя вправо - перейти}
{к проверке следующего числа}
If (trunc(mas[i]) mod A = 0) or (trunc(mas[i] mod B = 0) then
begin {}
Inc(DelQuant); {увеличить количество удаленных чи-сел}
Dec (Num); {уменьшить количество элементов в массиве}
For J := I to Num do 
Massiv[J] := Massiv[J+1]; {сдвиг влево}
Dec (I) {переместить наблюдателя влево}
end;
Until I = Num; {повторять, пока не будут проверены все числа}
If DelQuant = 0 
then {удалений не было}
Writeln('Массив не содержит элементов имеющих целую часть, кратную одному из двух чисел')
else {удаления были}
If Num <> 0 
then
begin
Writeln ('Удалено ', DelQuant,' чисел имеющих целую часть, кратную одному из двух заданых чисел');
Writeln ('Преобразованный массив');
For I := 1 to Num do Write (Massiv[i],' '); 
Writeln
end
else {все числа удалены}
Writeln ('Массив пустой')
End.

правильно?

[Sazary]

правильно?

Неизвестный идентификатор mas. Что и понятно. У вас-то Massiv.
Вы меня не слышите. Я сказал: не нужно копипастить не глядя.

If (trunc(massiv[i]) mod A = 0) or (trunc(massiv[i]) mod B = 0) then