массив

[христик]

дана последовательность целых чисел a1,a2...an.образовать новую последовательность выбросив из исходной те члены которые равны min(a1,a2...an)
просто прогу я написала, а чтобы в этой проге по мимо массива была еще и подпрограмма
сама задача:
uses crt;
var a,b:array[1..100] of integer;
i,j,min,n,k:integer;
begin
ClrScr;
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..100];
for i:=1 to n do
begin
a[i]:=random(20)-8;
Write(a[i],' ');
end;
Writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
for i:=1 to n do
if a[i]<>min then
begin
k:=k+1;
b[k]:=a[i];
end;
Writeln('Min ',min);
for i:=1 to k do
Write(b[i],' ');
Readln;
end.

[Arigato]

А где в условии сказано про подпрограмму?

[христик]

просто училка достала
сказала написать эту прграмму с подпрограммами

[pupilMartyr]

uses crt;

  // находит минимум в массиве a длиной n
  function findMin(a: array[1..100] of integer, n: byte): integer;
    var i:byte;
	min: integer;
  begin
	min:= a[1];
	for i:=2 to n do
	    if a[i]<min then min:= a[i];
   	findMin:= min;
  end;

  // формирует массив, состоящий из элементов массива a, без минимального элемента min
  function getNewMas(const a: array[1..100] of integer, var b:array[1..100] of integer, n: byte, min: integer): integer;
    var i,j: byte;
  begin
	j:= 1;
	for i:= 1 to n do
	  if a[i]<>min then
	  begin
	      b[j]:= a[i];
	      inc(j);
	  end;
  end;

  // основная программа
  var a,b:array[1..100] of integer;
      i,j,min,n:integer;
begin
	clrScr;
	randomize;
	readln(n);		// количество элементов в массиве
	for i:=1 to n do	// заполняем массив случайными значениями
	begin
	    a[i]:= random(20);
	    write(a[i], ' ');
	end;

	min:= findMin(a, n);		// находим минимальный элемент в массиве a
	getNewMas(a, b, n, min);	// получаем новый массив b
	
	for i:=1 to k do		// выводим его
	  write(b[i],' ');

	readln;
end.

Не проверяли, но работать должна.
+ можно не использовать дополнительный массив b, а удалять и сдвигать в массиве a.

[христик]

спасибо большое!!!!!!!!!!!