Одномерный массив. Pascal

[Liinad]

Получить в порядке уменьшения все целые числа с интервала (max,min), которые не входят в массив f. Не много пропустил эту тему, кому не сложно помогите закончить программку.

Var
   f,p : array [1..20] of integer;
   i,n,min,max : integer;
begin
     writeln('Введите количество елементов массива : ');
     readln(n);
     writeln('Введите елементы массива : ');
     For i:=1 to n do
        readln(f[i]);
     writeln('Полученный массив : ');
     For i:=1 to n do
        write(f[i]:4);
        writeln;
     min:=f[1];
     max:=f[20];
     // Найдём минимальный и максимальный елементы массива
     For i:=1 to n do
        begin
             If f[i]>max then
               max:=f[i];
             If f[i]<min then
               min:=f[i];
        end;
        writeln('Максимальный елемент : ', max,'   Минимальный елемент : ', min);





end.

[Liinad]

Что такое сложное задание? Или никто не хочет помочь?

[Serge_Bliznykov]

наоборот. настолько простое (вы половину уже сделали самостоятельно), что все решили, что Вы и дальше прекрасно справитесь самостоятельно

var 
   f,p : array [1..20] of integer;
   i,n,min,max : integer;
   j : integer;
   isNumberInArray : boolean;
begin

     min:=f[1];
     max:=f[20];
     // Найдём минимальный и максимальный елементы массива
     For i:=1 to n do
        begin
             If f[i]>max then
               max:=f[i];
             If f[i]<min then
               min:=f[i];
        end;
        writeln('Максимальный елемент : ', max,'   Минимальный елемент : ', min);
        {вывод чисел}
        if (min+1)>=(max-1) then WriteLn('В массиве нет требуемых чисел')
        else {возможно, такие числа в массиве есть, будем находить их и выводить в убывающем порядке}
            begin
               WriteLn('Числа: ')
               for i:=max-1 downto min+1 do begin

                  {проверим, если ли число i в массиве}
                  isNumberInArray := false;
                  for j:=1 to n do
                     if f[j] = i then begin
                            isNumberInArray := true; 
                            break
                     end;

                 if not isNumberInArray then {числа НЕТ в исходном массиве}
                     Write(i:4,' ');
               end;
               WriteLn;
            end;

"серым" цветом выделен ваш код, для ориентации в коде...

p.s. писал прямо на форуме, возможные опечатки/недочёты...

[Liinad]

Спасибо сейчас разберусь
Вот немного переделал под себя, так как не все понял что вы написали

Var
   f,p : array [1..20] of integer;
   i,j,n,min,max : integer;
begin
     writeln('Введите количество элементов массива : ');
     readln(n);
     writeln('Введите элементы массива : ');
     For i:=1 to n do
        readln(f[i]);
     writeln('Полученный массив : ');
     For i:=1 to n do
        write(f[i]:4);
        writeln;
     min:=f[1];
     max:=f[20];
     For i:=1 to n do
        begin
             If f[i]>max then
               max:=f[i];
             If f[i]<min then
               min:=f[i];
        end;
        writeln('Максимальный элемент : ', max,'   Минимальный элемент : ', min);
     For i:=max downto min do
        begin
             For j:=1 to n do
                     if f[j]=i then
                       write(f[j]:4);
        end;
end.

[Serge_Bliznykov]

нет, Вы сделали неправильно.

Получить в порядке уменьшения все целые числа с интервала (max,min), которые не входят в массив f.

выделил в задании, то, что Вы не так поняли (или не так воплотили в коде )

так как не все понял что вы написали

что именно не понятно - спрашивайте..


p.s. а зачем Вам второй массив (который p) ?