Дана последовательность целых чисел а1, а2, ..an. Образовать новую последовательность,...

Question

Дана последовательность целых чисел а1, а2, ..an. Образовать новую последовательность, выбросив из исходной те члены, которые равны min (а1, а2, ..an).
Составила такую программу:
Program NoName;
const n=5;
var mas:array [1..n] of integer;
masa:array [1..n] of integer;
i,min:integer;
Begin
writeln('Введите целые числа');
For i:=1 to n do
readln(mas[i]);
min:=mas[i];
For i:=1 to n do
If minFor i:=1 to n do
If mas[i]<>min then
begin
masa[i]:=mas[i];
end;
For i:=1 to n do writeln (masa[i]);
end.

Но она не выдает нужной последовательности, а понять где ошибка у меня не получилось :( Помогите пожалуйста

Answer 1

Извините, но смысла в работе Вашей программы я не нашёл.
Я написал свой вариант, если не подходит - пишите.

Program I_have_got_name;
const n = 5;
var   mas:array[1..n] of integer; 
        i,min:integer;
 begin 
   min:=maxint; 
   writeln('Введите целые числа'); 
   for i := 1 to n do   
    begin     
     readln(mas[i]);   
     if mas[i]    end; 
   For i:= 1 to 5 do   
     If mas[i]<>min then write(mas[i],' ');
end.