Татьяна2004

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

Vladimir_S

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

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

vladputin

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

MrSTEP

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