Найти наименьший элемент массива, и его номер среди чисел, минимальное число должно быть больше за b и меньше за a.

Question

Информатика

Нюра

16 февраля, 05:38

Найти наименьший элемент массива, и его номер среди чисел, минимальное число должно быть больше за b и меньше за a.

+5

Ответы (1)

Знаете ответ на вопрос?

Клавдий · Answer 1

Const

nn=50;

var

i, n, a, b, im, min:integer;

x:array[1 ... nn] of integer;

begin

ClrScr;

Write ('n = ') ; Read (n) ;

Write ('b, a = ') ; Read (b, a) ;

im:=0;

for i:=1 to n do begin

Write ('x[', i,']=') ; Read (x[i]) ;

if im=0 then im:=i

else begin if x[i]
end;

Writeln;

if (im=0) or (not (x[im] in [b ... a])) then Writeln ('No solution')

else Writeln ('x[', im.']=', x[im],' is minimal') ;

ReadKey

end.

Тестовое решение:

n=5

b, a = 4 8

x[1]=9

x[2]=7

x[3]=9

x[4]=6

x[5]=8

x[4]=6 is minimal