минимальные элементы массива Опции

[Spaun]

Подскажите пожалуйста, как со всего масива вывести 2 минимальных значения при условии того что значения задаются рэндомом
ЗЫ да забыл при этом их не сортируя. Заранее очень благодарен.

 
Program nomer1;
const N=10;
var
mas:array[1..N]of integer;
i,min: integer;
begin
     randomize;
     for i:=1 to N do
     begin
     mas[i]:=random(108)+1900;
     write(mas[i], '|');
     end;
writeln;
     min:=mas[i];
     for i:=2 to N do
     if mas[i] < min then
     begin
     min:= mas [i];
     writeln (min)
     end;
     end.

вроде так но чегото не получается.... помогите..

Сообщение отредактировано: Spaun - 4.06.2008 14:31

[Spaun]

За

без сортировки

извиняюсь.
То что прога зацикливается это факт... могу скинуть фото.
а в том варианте что предложил Vinsent90 не всегда точно выводиться значение... есть фото...



Сообщение отредактировано: Spaun - 4.06.2008 20:04

[compiler]

То что прога зацикливается это факт... могу скинуть фото.
а в том варианте что предложил Vinsent90 не всегда точно выводиться значение... есть фото...

Ну.. зацикливание это приувеличинно.. Есть readkey, а как с ним поступать в ABC и как осуществляется операция ввода я не знаю, и эти вопросы сдесь, как я понимаю, не обсуждаются.. Просто убери его... Насчет ошибок в нахождении минимума, есть такой грешок, все кроется в троке min2:=mas[i]; , где присваивание происходит без проверки.. Да и вообще вышеупомянутая строка может начудить и не такое с НЕинициализированым i.
и еще, говорят, не плохо приводить тип результата от random

Сообщение отредактировано: compiler - 4.06.2008 20:26