Стеки

[Xa9t]

Люди. есть задачка. я ее сделал. Выхождения минимального элемента из 5 цифр. Мне теперь нужно минимальный элемент заменить на 0.Если не трудно помогите

program prakt1;
uses crt;
const max_st=5;
var st,st2:array[1..max_st] of integer;
    n, s, i, min:integer;

procedure push(a:integer);
{Џ®¬ҐбвЁвм н«Ґ¬Ґ*в ў б⥪}
begin

for n:=1 to max_st do
begin;
write('‚ўҐ¤ЁвҐ ',n,'-л© н«Ґ¬Ґ*в б⥪*: ');
readln(st[n]);
end;
end;

procedure minel(var min:integer);
begin;
min:=st[1];
begin
for n:=1 to max_st do
if st[1]>st[n] then
min:=st[n];
writeln('min=',min);
end;3
end;
begin
{Ћб*®ў**п Їа®Ја*¬¬*, ў*аЁ**в ь12}
clrscr;
push(n);

minel(min);

readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[domovou]

Так?

program prakt1;
uses crt;
const max_st=5;
var st,st2:array[1..max_st] of integer;
n, s, i, min:integer;

procedure push(a:integer);
{Џ®¬ҐбвЁвм н«Ґ¬Ґ*в ў б⥪}
begin

for n:=1 to max_st do
    begin;
    write('‚ўҐ¤ЁвҐ ',n,'-л© н«Ґ¬Ґ*в б⥪*: ');
    readln(st[n]);
    end;
end;

procedure minel(var min:integer);
begin;
min:=st[1];
for n:=1 to max_st do
    if st[n]<min then begin
    min:=st[n];
    s:=n;
    end;
writeln('min = ',min);
st[s]:=0;
for n:=1 to max_st do
    write(st[n]:3);
end;
begin
{Ћб*®ў**п Їа®Ја*¬¬*, ў*аЁ**в ь12}
clrscr;
push(n);
minel(min);
readln;
end.

[Xa9t]

Не. так же само. выдает только минимальный и все

[TinMan]

Сообщение от Xa9t

Люди. есть задачка. я ее сделал. Выхождения минимального элемента из 5 цифр. Мне теперь нужно минимальный элемент заменить на 0.Если не трудно помогите

Как тебе помочь, если неясно, что ты имеешь в виду?
Домовой сделал две вещи:
1. исправил твою ошибку при нахождении минимума (ты искал неверно);
2. заменил в твоем "стеке" (хотя это совсем и не стек, а обычный массив) минимальный элемент на 0.
Чего тебе еще не хватает? Вывода массива? Ты уж будь добр, разбирайся хотя бы в том, что тебе надо сделать..
И всегда говори спасибо, даже если тебе кажется, что тебе не помогли - так, за старание..

[Xa9t]

она считает правильно. я ввожу 5 цифр с клавиатуры, и он выводит мне минимальный элемент, там все нормально. Но теперь тот минимальный элемент нужно заминать на 0. Я запустил то что он сделал. все равно оно не выводит минимальный

[domovou]

Странно)) У меня все Ок