Question

Дам 50 баллов. Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Количество элементов задается как константа.
(Это начало, нужно продолжить)
const
N=10;
Var b: array [1..N] of integer;
…

Answer 1

Ответ:

var

i : integer;

max1 : integer;

nomer : integer;

begin

for i := 1 to N do

b[i] := random(-20, 25);

max1 := b[1];

for i := 1 to N do

begin

if b[i] < max1 then

begin

max1 := b[i];

nomer := i;

end;

end;

writeln('Номер наименьшего элемента ', nomer);

end.