В массиве найти наименьшее из 5 чисел (Pascal)

[Татьяна2004]

В массиве найти наименьшее из 5 чисел (Pascal)

решите пожалуста задачку:в одномерном массиве найти наименьшее из положительных чисел.(5 элементов.)заранее спасибо!

 

[Vladimir_S]

решите пожалуста задачку:в одномерном массиве найти наименьшее из положительных чисел.(5 элементов.)заранее спасибо!

CONST
N=5;
VAR
a:ARRAY [1..N] of INTEGER;
i, Min, Nmb:INTEGER;

BEGIN
Randomize;
FOR i:=1 TO N DO
a:=Random(100);
FOR i:=1 TO N DO
Write('a[', i:1, '] = ', a:3);
WriteLn;
Min:=150;
FOR i:=1 TO N DO
IF a<Min THEN
BEGIN
Min:=a;
Nmb:=i;
END;
WriteLN('Min = a[', Nmb:1, '] = ', Min:3);
READLN;
End.

 

[vladputin]

подскажите пожалуйста: как в одномерном массиве найти 3 наименьших числа для дальнейшей их суммы?

 

[MrSTEP]

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