Question

Дан одномерный динамический массив случайных целых чисел A(N). Найти номер и значение максимального элемента, расположенного во второй половине (включая середину) массива целых чисел. На паскале

Answer 1

Ответ:

var

 i, n: integer;

 x: array of real;

 s: real;

begin

 n := 10;

 randomize;

 s := 0;

 SetLength(x, n);

 for i := 0 to n - 1 do

 begin

   x[i] := -n div 2 + random * n;

   write(x[i]:8:2);

   if x[i] < 10 then

     s := s + x[i];

 end;

 writeln;

 writeln(s:8:2);

end.

Объяснение:

Answer 2

Для решения данной задачи на Паскале можно использовать следующий алгоритм:

1. Объявляем переменные max_value, max_index и N, где max_value будет хранить значение максимального элемента, max_index - его индекс, а N - размер массива. 2. Запрашиваем у пользователя значение N и создаем массив A размером N. 3. Заполняем массив A случайными целыми числами. 4. Инициализируем переменные max_value и max_index значением первого элемента массива A. 5. Проходим по элементам массива A начиная с индекса N/2 и до конца массива. 6. Если текущий элемент больше max_value, то обновляем значения max_value и max_index. 7. Выводим на экран значение max_value и его индекс max_index.

Пример кода на Паскале:

program maxElement;
var
  A: array of Integer;
  N, max_value, max_index, i: Integer;
begin
  Write('Введите размер массива: ');
  Readln(N);
  
  SetLength(A, N);
  
  Randomize;
  for i := 0 to N - 1 do
  begin
    A[i] := Random(100); // заполняем массив случайными числами от 0 до 99
  end;
  
  max_value := A[N div 2];
  max_index := N div 2;
  
  for i := N div 2 to N - 1 do
  begin
    if A[i] > max_value then
    begin
      max_value := A[i];
      max_index := i;
    end;
  end;
  
  Writeln('Максимальный элемент: ', max_value);
  Writeln('Индекс максимального элемента: ', max_index);
  
  Readln;
end.

После выполнения программы на экран будет выведено значение максимального элемента, расположенного во второй половине массива, и его индекс.