пожалуйста помогите решить задачечку

[marina-malina]

Найти среднеарифметическое значение трех наименших елементов масива А(10)

[Gongled]

Мой вариант. Без лишнего пробега цикла (т.е. без использования сортировки).

program pr;
uses CRT;
const
n = 10;
var
min1, min2, min3, i : integer;
a : array[1..n] of integer;
sa : real;

begin
clrscr;

{ Заполнение массива и его вывод }
for i:=1 to n do
begin
     a[i]:=integer(random(21)-10);
     write(a[i]:4);
end;

{ Заведомо бОльшие значения }
min1 := 30; min2 := 30; min3:=30;

{ Поиск трёх минимальных }
for i:=1 to n do
begin
     if min1 > a[i] then
     begin
          min3 := min2;
          min2 := min1;
          min1 := a[i];
     end
     else
     if min2 > a[i] then
     begin
          min3 := min2;
          min2 := a[i];
     end
     else
     if min3 > a[i] then
     begin
          min3 := a[i];
     end;
end;

writeln;
{ Вывод результата }
writeln('Минимумы: ', min1:4, min2:4, min3:4);
sa := (min1+min2+min3) / 3;
write('Среднее арифметическое трёх минимумов: ',sa:4:4);

end.

[Serge_Bliznykov]

Gongled, ОТЛИЧНО!
Только, если нужны действительно случайные числа, то в начале программы обязательно надо использовать randomize;
и приведение типов вот здесь
"a[i]:=integer(random(21)-10);" не нужно (хоть это и не ошибка! )
и ещё. для заведом бОльших значений я бы всё таки рекомендовал использовать константу MaxInt:
min1 := MaxInt; min2 := MaxInt; min3 := MaxInt;

и последнее, на мой взгляд, всё таки, решение через сортировку массива короче и более универсально.

[Gongled]

Спасибо. Некоторый теоретический материал я не знал.

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

и последнее, на мой взгляд, всё таки, решение через сортировку массива короче и более универсально.

Оффтоп: К слову, составители ЕГЭ (где есть задания на нахождение трёх минимальных сумм, разностей, произведений и.т.п.) считают иначе. Эффективным алгоритмом они считают подобный выбор, без лишнего пробега цикла. Непонятно :'-)

[Serge_Bliznykov]

составители ЕГЭ (где есть задания на нахождение трёх минимальных сумм, разностей, произведений и.т.п.) считают иначе.

о. не знал! o_O
Спасибо за информацию!
и вообще, надо будет поинтересоваться, что там вообще в ЕГЭ по информатике есть...

[Stilet]

составители ЕГЭ

Что такое ЕГЭ -Економико-Гуманитарный Эниверситет?

[Serge_Bliznykov]

Виталий, это теперь в России такой обязательный экзамен(ы)...
вот, на wiki - Единый государственный экзамен

[Gongled]

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

и вообще, надо будет поинтересоваться, что там вообще в ЕГЭ по информатике есть...

Как доводят до нас учителя информатики как в институте (на курсах), как в школе, решение задачи С4 (как раз сортировка и выбор трёх худших / лучших) не должно содержать двойного пробега цикла (например метод Пузырька). Эффективным алгоритмом считается поиск минимумов / максимумов за один пробег.

Константин Поляков пишет:

За что снимают баллы:
Используется несколько проходов по массиву, когда достаточно одного

Serge_Bliznykov, посмотреть демонстрационный вариант 2009 года можно здесь: http://www.ctege.org/page.php?s=&pageid=3500