Первая переменная введенная Это размер массива к примеру 10.
Вторая введенная величина это нижняя граница значения удаляемых значений к примеру 3
Третья вводимая переменная определяет верхний предел удаляемых значений к примеру 6
Далее последовательно вводите 10 значений массива.
__________________________________________________ _______________
Введите N ( N < 100):10
Введите a:3
Введите b:6
Mas[1]=1
Mas[2]=2
Mas[3]=3
Mas[4]=4
Mas[5]=5
Mas[6]=6
Mas[7]=7
Mas[8]=8
Mas[9]=9
Mas[10]=10
Результат
mas[1]=1
mas[2]=2
mas[3]=7
mas[4]=8
mas[5]=9
mas[6]=10
mas[7]=0
mas[8]=0
mas[9]=0
mas[10]=0
Max=10
__________________________________________________ _____________
Немного изменил код в плане оформления выводимой информации. Надеюсь все получиться.
Код:
var
j,i:integer;
N:integer;
Max:real;
a,b:real;
Mas: array [1..100] of real;
begin
write('Введите N ( N < 100):'); readln(N);
write('Введите a:'); readln(a);
write('Введите b:'); readln(b);
for i:=1 to N do
begin
write('Mas[',i,']=');
read(Mas[i]);
end;
writeln('Результат');
max:=Mas[1];
for i:=2 to N do
begin
if Mas[i]>Max then max:=Mas[i];
end;
j:=1;
for i:=1 to N do
begin
mas[j]:=mas[i];
if (Mas[i]>=a)and(mas[i]<=b) then dec(j);
inc(j);
end;
for i:=j to N do mas[i]:=0;
writeln;
for i:=1 to N do writeln('mas[',i,']=',mas[i]);
writeln;
writeln('Max=',Max);
readln;
end.