Question

СРОЧНО!!!
ABC PASCAL
2.05. Дан одномерный массив В(N). Найти наименьший элемент одномерного массива, больший заданного числа a и определить его местоположение в массиве.

Answer 1

var b: array of real;

i,n,ll: integer;

max,min,a: real;

begin

write('Введите длину массива: ');

readln(n);

write('Введите число a: ');

readln(a);

setlength(b,n);

writeln('Массив B: ');

for i:=0 to n-1 do

begin

b[i]:=random(3*n);

write(b[i],' ');

end;

writeln;

min:=b[0];

max:=a;

for i:=0 to n-1 do

if min>b[i] then min:=b[i]

else if max<b[i] then begin

max:=b[i];

ll:=i;

end;

writeln('Наименьший элемент массива - ',min);

writeln('Элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');

end.

Можете вместо real типа данных использовать также и integer. Просто неизвестно какие данные будут использоваться во время проверки