Question

Помогите срочно по информатике 11 класс пожалуйста создать программу, заполняющую массив случайными числами от 1 до 20, найти в этом массиве номер минимального элемента ЯЗЫК: ПАСКАЛЬ

Answer 1

Ответ:

Объяснение:

const

 n = 10;

 a = 1;

 b = 20;

var

 ar:array[1..n] of integer;

 i:integer;

 min, i_min:integer;

 

begin

 randomize;

 

 for i:=1 to n do

   ar[i]:=random(b-a+1)+a;

   

 for i:=1 to n do

   write(ar[i], ' ');

 

 writeln;

 

 i_min:=1;

 min:=ar[1];

 

 for i:=2 to n do

   if (ar[i]<min) then begin

     min:=ar[i];

     i_min:=i;

   end;

 

 

 writeln(i_min);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая создает массив случайных чисел от 1 до 20 и находит номер минимального элемента:

pascalCopy code
program FindMinElementIndex;

const
  N = 10;  // Размер массива

var
  arr: array[1..N] of integer;
  i, minElement, minIndex: integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполняем массив случайными числами от 1 до 20
  for i := 1 to N do
    arr[i] := Random(20) + 1;

  // Инициализируем минимальный элемент и его индекс значением первого элемента массива
  minElement := arr[1];
  minIndex := 1;

  // Находим минимальный элемент и его индекс
  for i := 2 to N do
  begin
    if arr[i] < minElement then
    begin
      minElement := arr[i];
      minIndex := i;
    end;
  end;

  // Вывод результата
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;
  
  writeln('Минимальный элемент: ', minElement);
  writeln('Номер минимального элемента: ', minIndex);
  
  readln;
end.

В этой программе мы создаем массив arr размером 10 элементов, заполняем его случайными числами от 1 до 20, затем находим минимальный элемент и его номер в массиве. Результат выводится на экран.