Дана последовательность целых чисел а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 minmin then begin masa[i]: =mas[i]; end; for i: =1 to n do writeln (masa[i]); end. но она не выдает нужной последовательности, а понять где ошибка у меня не получилось : (
Я написал свой вариант, если не подходит - пишите.
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.