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

[Ananim-Pbl6ak]

а что нужно добавить, чтобы писАло какие элементы он удалил

[Sazary]

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

а что нужно добавить, чтобы писАло какие элементы он удалил

Вот сюда вот:

If (trunc(mas[i]) mod A = 0) or (trunc(mas[i] mod B = 0) then
begin {}
Inc(DelQuant); {увеличить количество удаленных чи-сел}
Dec (Num); {уменьшить количество элементов в массиве}

впихните вывод элемента mas[i]

[Ananim-Pbl6ak]

 If (trunc(mas[i]) mod A = 0) or (trunc(mas[i] mod B = 0) then
begin {}
Inc(DelQuant); {увеличить количество удаленных чи-сел}
Dec (Num); {уменьшить количество элементов в массиве}
Write('Удаленые элименты массива ',massiv[i],' ');

я сделал вот так, теперь только он каждый раз пишет: Удаленые элименты массива 1 Удаленые элименты массива 2 и т д

[Sazary]

я сделал вот так, теперь только он каждый раз пишет: Удаленые элименты массива 1 Удаленые элименты массива 2 и т д

Он выводит текущий удаленный элемент.
Фразу "Удаленные элементы" вынесите куда-нибудь из цикла.
А в цикле выводится сам элемент.

[Ananim-Pbl6ak]

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

Program InsertZero;
{Вставка 0 после каждого отрицательного числа}
Type
TVector=Array[1..40] of Integer;
Var
Vector:TVector;
Num,NumBeg,I,J:Byte;
Begin
Writeln('Введите не более 20 целых чисел');
Writeln('Конец ввода по ENTER');
Num:=0; {текущее количество элементов в массиве}
While not EOLN do
begin
Inc(Num);
Read(Vector[Num]);
end;
Readln;
NumBeg:=Num; {запомнить исходное число элементов}

I:=0; {I - индекс проверяемого элемента массива}
Repeat
Inc(I);
If Vector[i]<0 {если I-ый элемент - отрицательное число,}
then {то выполнить действия по вставке 0}
begin
For J:=Num downto I+1 do {сдвинуть элементы с }
Vector[J+1]:=Vector[J];{последнего до I-го вправо}
Vector[I+1]:=0; {вставить на I+1-ое место 0}
Inc(Num); {увеличить количество элементов массива}
end;
Until I=Num; {закончить, если проверены все элементы}
{печать результата}
If NumBeg<>Num
then
begin
Writeln('Массив после вставки',Num-NumBeg,'нулей');
For I:=1 to Num do
Write(Vector[i],' '); 
Writeln;
end
else
Writeln('Отрицательных чисел нет. Массив не изменен');
Readln
End.

[Sazary]

Ananim-Pbl6ak, один вопрос - одна тема.
И исправьте теги (code).

Что это за пример и что не получается или работает не так?

[Ananim-Pbl6ak]

программа из примера вставляет 0 после каждого отрицательного числа в массиве

[Sazary]

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

программа из примера вставляет 0 после каждого отрицательного числа в массиве

Хорошо. И зачем он нужен? Вместо того, чтоб переделывать готовое, напишите свое.
Ну, или, если так уж хотите именно переделать, то какие вопросы?

[Ananim-Pbl6ak]

min:=1; max:=1;
for i:=2 to 10 do
 begin
  if a[i]>a[max] then max:=i
   else if a[i]<a[min] then min:=i;
 end;
writeln;
writeln('минимальный элимент массива - ',a[min],' ','максимальный элимент массива - ',a[max]);

это поиск минимума и максимума куда ставить, и что надо вставить чтобы утроить

[Sazary]

что надо вставить чтобы утроить

Увеличиваете размер массива на 2 элемента. Идя от конца к элементу, который нужно утроить, сдвигаете все элементы вправо. Потом вписываете за утраиваемым элементом, собственно, этот же элемент два раза.