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 min<mas[i] then min:=mas[i];For 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]<min then min:=mas[i]; 
    end; 
   For i:= 1 to 5 do   
     If mas[i]<>min then write(mas[i],' ');
end.

Answer 2

В вашем коде есть несколько ошибок. Вот исправленная версия программы:

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[1]; For i:=2 to n do If mas[i] < min then min:=mas[i]; j:=1; For i:=1 to n do