Question

Pascal для массива x из 30 элементов найти наибольший элемент, после чего нормировать все элементы массива, поделив их значения на значение наибольшего элемента. Значение наибольшего элемента, его номер вывести на экран.

Answer 1

===== PascalABC.NET =====

begin

 var x := ArrRandomReal(30, -99, 99);

 x.Transform(p -> Round(p, 1));

 x.Println;

 var imax := x.IndexMax;

 var xmax := x[imax];

 Println('Max =', xmax, '   его номер', imax + 1);

 x.Transform(p -> p / xmax);

 x.Println

end.

Answer 2

Вот решение задачи на языке программирования Pascal:

arduinoCopy code
program MaxNormalizeArray;

var
  x: array[1..30] of real;
  max: real;
  i, maxIndex: integer;

begin
  // заполнение массива случайными числами от 0 до 1
  randomize;
  for i := 1 to 30 do
    x[i] := random;

  // поиск наибольшего элемента и его индекса
  max := x[1];
  maxIndex := 1;
  for i := 2 to 30 do
    if x[i] > max then
    begin
      max := x[i];
      maxIndex := i;
    end;

  // вывод наибольшего элемента и его индекса
  writeln('Max element = ', max:0:2, ', index = ', maxIndex);

  // нормирование всех элементов массива
  for i := 1 to 30 do
    x[i] := x[i] / max;

  // вывод нормированного массива
  writeln('Normalized array:');
  for i := 1 to 30 do
    writeln(x[i]:0:2);
end.

Как работает программа:

• Создаются переменные: массив x из 30 элементов и переменные max и maxIndex, которые будут хранить наибольший элемент и его индекс соответственно.
• Заполняется массив случайными числами от 0 до 1.
• В цикле проходится по всем элементам массива x, сравнивая их с текущим максимальным значением. Если находится элемент, больший текущего максимального, то он становится новым максимальным, а его индекс сохраняется в переменной maxIndex.
• После нахождения наибольшего элемента, его значение и индекс выводятся на экран.
• В цикле проходится по всем элементам массива x и каждый элемент нормируется, деля его значение на значение наибольшего элемента.
• Нормированный массив выводится на экран.