произведение трех наименьших элементов массива

[boing]

Написать программу, вводящую массив из N целых чисел с клавиатуры и вычисляющую произведение трех наименьших элементов массива с использованием процедуры сортировки.

объясните пожалуйста про сортировку немного

[danaster]

var
a:array [0..100] of integer;
x,max,N,i,min1,min2,min3:integer;
begin
writeln ('Введите N');
readln (N);
 for i:=1 to N do begin
 writeln ('a[',i,']=');
 read (a[i]);
 end;

max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
end;

min1:=a[1];
for i:=1 to n do begin
  if a[i]<=min1 then
  begin
  min1:=a[i]; x:=i;
  end;
 end;
a[x]:=max;

min2:=a[1];
for i:=1 to n do begin
 if a[i]<=min2 then begin min2:=a[i]; x:=i; end;
 end;
a[x]:=max;

min3:=a[1];
for i:=1 to n do begin
 if a[i]<=min3 then begin min3:=a[i]; x:=i; end;
 end;
a[x]:=max;

writeln ('минимальные числа: ',min1,' ',min2,' ',min3);
writeln ('ответ: ',min1*min2*min3);

end.

я в паскале пару месяцев, так что способ не самый рациональный но сделал так:
сначала среди массива нашел максимальное число, чтобы в дальнейшем заменять на него найденное минимальное, значение которого в свою очередь присваиваем новой переменной, если это не сделать, то сортировка будет находить одно и тоже число.
потом отсортировал min1 сравнив все члены массива, присвоил, заменил
так со 2-м и с 3-м.
вобщем-то всё.

[ROMA2PVT]

Ему уже на сайберфоруме всё написали.

[Grag]

Danaster, и где же у тебя процедура сортировки? Нужно выполнить сортировку элементов в массиве (допустим по убыванию), а затем взять три последних и найти их произведение...

[boing]

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

Ему уже на сайберфоруме всё написали.

да написали это ведь неплохо

[Grag]

Danaster, вот это

for i:=1 to N do begin
writeln ('a[',i,']=');
read (a[i]);
end;

лучше сделать так

for i:=1 to N do begin
write ('a[',i,']=');
readln (a[i]);
end;

будет выглядеть более логично...
А если юзверь с бодуна введет значение N=150??? Кирдык, "Out of range" обеспечено...

[Stilet]

А если юзверь с бодуна введет значение N=150??? Кирдык, "Out of range" обеспечено...

А как твой пример решает эту проблему?

[Grag]

А мой пример бы выглядел так:

Const
  MaxRange=100;
Var
  a:array[0..MaxRange] of integer;
  N:integer;
Begin
  repeat
    write('Please, input N = ');
    readln(N);
    if not (N in [0..MaxRange] then
      writeln('Warning! Input with error! Try again.')
  until (N in [0..MaxRange])
End.

Это касается только ввода и валидности размера массива...

[Stilet]

Ну вот это уже другое тело...

[Grag]

Ой, ну тока не надо мне экзамены устраивать. Я уже с этим делом с 1985 года "на ты"...