Question

Найти минимальный элемент массива A(10) и уменьшить его в два раза. Pascal ​

Answer 1

Ответ:

Free Pascal

Объяснение:

const

 n=10;

var

 a : array [0..n] of integer;

 i, m : integer;

begin

 randomize;

 m := 100;

 for i:=0 to n-1 do begin

   a[i] := random(100);

   if a[i]< m then

     m := a[i];

   write(a[i], '  ');

 end;

 writeln();

 writeln('min=', m);

 writeln('Otvet : ',(m/2):2:1);

end.

Answer 2

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

pascalCopy code
program MinElement;

var
  A: array[1..10] of Integer;
  i, minIndex: Integer;

begin
  // Заполняем массив A случайными числами
  Randomize;
  for i := 1 to 10 do
  begin
    A[i] := Random(100); // случайное число от 0 до 99
    Write(A[i], ' ');
  end;

  // Находим индекс минимального элемента в массиве
  minIndex := 1;
  for i := 2 to 10 do
  begin
    if A[i] < A[minIndex] then
      minIndex := i;
  end;

  // Уменьшаем минимальный элемент в два раза
  A[minIndex] := A[minIndex] div 2;

  Writeln;
  Write('Массив после уменьшения минимального элемента в два раза: ');
  for i := 1 to 10 do
  begin
    Write(A[i], ' ');
  end;

  Readln;
end.

В этой программе сначала создается массив A из 10 случайных целых чисел. Затем программа находит индекс минимального элемента в массиве, уменьшает его значение в два раза и выводит измененный массив на экран.