Question

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

Answer 1

Ответ:

program znanijacom;

const

  n = 5;

type

  mas = array[1..n] of integer;

var

  a: mas;

  i: integer;

  max: integer;

begin

  writeln('введите элементы массива');

  for i:=1 to n do readln(a[i]);

  writeln('вывод элементов массива:');

  for i:=1 to n do write(a[i]:3);

  max := a[1];

  for i:=1 to n do if a[i] > max then max := a[i];

  writeln(' максимальный элемент: ', max);

  writeln('массив после изменений: ');

  for i:=1 to n do begin

   if a[i] = max then a[i] := a[i]*i;

   write(a[i]:3);

   end;

end.

Объяснение:

Answer 2

Конечно, вот программный код на языке Pascal, который решает вашу задачу:

pascalCopy code
program MaxElementReplacement;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of integer;
  n, i, maxElement, maxElementIndex: integer;

begin
  write('Введите размер массива: ');
  readln(n);

  if (n < 1) or (n > MAX_SIZE) then
  begin
    writeln('Размер массива должен быть от 1 до ', MAX_SIZE);
    exit;
  end;

  writeln('Введите элементы массива: ');
  for i := 1 to n do
    read(arr[i]);

  maxElement := arr[1];
  maxElementIndex := 1;

  for i := 2 to n do
  begin
    if arr[i] > maxElement then
    begin
      maxElement := arr[i];
      maxElementIndex := i;
    end;
  end;

  writeln('Массив до изменения:');
  for i := 1 to n do
    write(arr[i], ' ');

  writeln;
  writeln('Максимальный элемент массива: ', maxElement);

  for i := 1 to n do
  begin
    if arr[i] = maxElement then
      arr[i] := maxElement * maxElementIndex;
  end;

  writeln('Массив после изменения:');
  for i := 1 to n do
    write(arr[i], ' ');

  writeln;
end.

Этот код создает массив, заполняет его значениями, находит максимальный элемент и его индекс, затем заменяет все максимальные элементы в массиве на произведение максимального элемента и его индекса. Наконец, он выводит максимальный элемент массива и сам массив до и после изменения.