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

Question

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

Comments

Мне не сложно, вводить-то Вы будете))) Вам как раз для проверки проще от датчика случайных. Но выбор за автором вопроса.

---

Если все еще пишите, уже не надо, сделал сам. Но спасибо я вам поставлю.

---

Писанина - ерунда, проблема в оформлении)))

---

Надо же было еще найти этот древнейший "Трубопаскакаль"

---

Что поделать, я бы на дельфи делал, но преподу надо именно паскаль. А так, спасибо за помощь!

---

90% школьных паскянтов делают на PascalABC.Net.

---

Я использую FPC, и вам, для таких заданий, советую его

---

Спасибо, фришный паскаль "для этих дел" - абсурдное занятие.

---

Кому что удобно.

---

Это как рыть траншею саперной лопаткой, когда рядом есть экскаватор

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