Вывод массива, Вывод массива в порядке возрастания Опции

[Алексей_Рыженко]

Здрасти!!! Я здесь человек новый, но вы меня пожалуйста не игнаируете! Я самостоятель учусь программировать на Паскале. По учебникам... У меня возникла проблема. Надо написать программу которая читает массив чисел, а потом выводит в парядке возрастания. При этом сортировку мы ещё не учили. Помогите!! Мучиюсь уже неделю!

[Алексей_Рыженко]

Program DomZadUr12;

var

M : Array [1 .. 10] of integer;

J,I : Byte;

MIN : integer;

begin

For I := 1 to 10 do

begin

Write('‚ўҐ¤ЁвҐ зЁб«® N',I,': ');

Readln(M[I]);

end;

For J := 1 to 10 do

begin

M[MIN] := M[1];

For I := 1 to 10 do

begin

If M[I] < M[MIN] then M[MIN] := M[I];

end;

Write(M[MIN],' ');

M[MIN] := MaxInt;

end;

Readln;

end.

Тегами пользуемся!

Сообщение отредактировано: volvo - 2.11.2006 17:53

[RaV]

Program DomZadUr12;

var

M : Array [1 .. 10] of integer;

J,I : Byte;

MIN : integer;

begin

For I := 1 to 10 do

begin

Write('‚ўҐ¤ЁвҐ зЁб«® N',I,': ');

Readln(M[I]);

end;

For J := 1 to 10 do

begin

MIN := M[1]; {<---изменено M[MIN] на MIN}

For I := 1 to 10 do

begin

If M[I] < MIN  then MIN := M[I];

end;

Write(MIN,' ');

for i:=1 to 10 do if MIN=M[i] then m[i]:=maxint;{<---- Изменено M[MIN]:=MaxInt на эту строку}

end;

Readln;

end.

Сравни со воей программой, какие сделаны изменения.
Файл с кодом  123.txt ( 421 байт ) Кол-во скачиваний: 356