Работа 3.6 Упр.3 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 3. Даны действительные числа а1, а2, … ,аn. Поменять местами первый наибольший элемент с последним наименьшим элементом. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-6/3 98

Подробный ответ

Нужно найти в массиве первый наибольший элемент и последний наименьший элемент, а затем поменять их местами.

Для этого при просмотре массива храним индексы:

imax — индекс первого максимального элемента;
imin — индекс последнего минимального элемента.

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

var
  a: array[1..100] of real;
  i, n, max, imin, imax, b: integer;
begin
  write(‘N: ‘);
  readln(n);
  imax := 1;
  imin := 1;
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(10) — 3;
    write(a[i]:3);
    if a[i] > a[imax] then
      imax := i;
    if a[i] < a[imin] then
      imin := i;
  end;
  writeln;
  writeln(‘MAX[‘, imax, ‘]=’, a[imax]);
  writeln(‘MIN[‘, imin, ‘]=’, a[imin]);
  b := a[imax];
  a[imax] := a[imin];
  a[imin] := b;
  for i := 1 to n do
    write(a[i]:3);
end.