Помогите сделать программу

Язык указывать не забываем. Наверное тебе это надо сделать на ассемблере? Я прав ? :)

set max [set min [set x [gets stdin]]]
incr nmax; incr nmin
while {0 != [set x [gets stdin]]} {
if {$x > $max} {set max $x; set nmax 1} elseif {$x == $max} {incr nmax}
if {$x < $min} {set min $x; set nmin 1} elseif {$x == $min} {incr nmin}
}
puts "nmax: $nmax; nmin: $nmin"

To BlackPirate: походу оба не угадали, в этом учебном заведении учат программировать на Си.

А язык указать слабо?
PROLOG, Lisp, perl??

Ну собственно вот мой вариант твоей задачки на паскале:

program name;

var
x, i, n, max, min, Nmax, Nmin: integer;

begin
Nmax := 1;
Nmin := 1;
write('Введите количество элементов последовательности');
read(n);
writeln('Введите элемент последовательности');
read(x);
max := x;
writeln('Введите элемент последовательности');
read(x);
if max < x then
begin
min := max;
max := x;
end
else
if max > x then
min := x
else
begin
min:=max;
Nmax := 2;
Nmin := 2;
end;
for i := 1 to n-2 do
begin
writeln('Введите элемент последовательности');
read(x);
if x > max then
begin
max := x;
Nmax := 1;
end
else
if x = max then
Nmax := Nmax + 1;

if x < min then
begin
min := x;
Nmin := 1;
end
else
if x = min then
Nmin := Nmin + 1;
end;
write('Кол-во мин. элеменов - ', Nmin, '.Кол-во макс. элементов - ', Nmax);
end.