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.

Answer 2

Sure! Here's the continuation of your code:

pascalCopy code
const
  N = 10;
var
  b: array [1..N] of integer;
  i, minIndex: integer;
  minValue: integer = 26; // Initializing with a value greater than the maximum

// Generating random numbers and storing them in the array
Randomize;
for i := 1 to N do
begin
  b[i] := Random(46) - 20; // Generates a random number between -20 and 25
  WriteLn('b[', i, '] = ', b[i]);
end;

// Finding the index of the smallest element
for i := 1 to N do
begin
  if b[i] < minValue then
  begin
    minValue := b[i];
    minIndex := i;
  end;
end;

WriteLn('The smallest element is ', minValue);
WriteLn('The index of the smallest element is ', minIndex);

In the above code, I added a loop to generate random numbers between -20 and 25 using the Random function. Then, I iterate through the array to find the index of the smallest element by comparing each element with the current minimum value.

Finally, the code outputs the smallest element and its corresponding index. Note that the variable minValue is initialized with a value greater than the maximum (26) to ensure that the first element encountered becomes the new minimum value.

Feel free to run the code and let me know if you need any further assistance!