Question

Se citește de la consolă un șir de numere a[i] cu i = 0, n-1. Se ordonează crescător acest șir și se verifică dacă elementul minim este cuprins în intervalul (x, y), unde numerele x și y sunt citite de la consolă. pseudocod.

Answer 1

var a : array of integer;
     n, x, y, i, j, k : integer;
begin
{ init vars }
n := 0; x := 0; y := 0; i := 0; j := 0; k := 0;
read(n);
for i := 0 to n-1 do
begin
read(a[i]);
end;
write('x = '); readln(x);
write('y = '); readln(y);
{ bubble sort array, pentru a gasi minimul }

for i := 0 to n-1 do

       for j := 1 to n-i do

           if a[j] < a[j+1] then begin

               k := a[j];

               a[j] := a[j+1];

               a[j+1] := k

           end;

if ( a[0] <= y ) and ( a[0] >= x ) then
begin
write(a[0], ' se afla in interval')
end
else
begin
write(a[0], ' nu se afla in interval');
end;

end.