Найти в массиве наибольший и наименьший элементы и определить их индексы - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста.
Ввести заданный одномерный массив из 25 элементов.
Найти в нем найбольший и найменьший элементы и определить их индексы.
Переименовать элементы массива в обратном порядке так, чтобы первый стал последним и наоборот.
Вывести оба массива с заголовками в порядке возрастания их индексов по 5 чисел в строке.
Решение задачи: «Найти в массиве наибольший и наименьший элементы и определить их индексы»
textual
Листинг программы
const n=25; var a,b:array[1..n] of integer; i,max,min,k,m:integer; begin for i:=1 to n do readln(a[i]; max:=a[1]; min:=a[1]; k:=1; m:=1; for i:=2 to n do begin if max<a[i] then begin max:=a[i]; k:=i; end; if min>a[i] then begin min:=a[i[; m:=i; end; end; writeln('max=', max, ' nomer ',k); writeln('min=', min, ' nomer ',m); for i:=1 to n do b[n-i+1]:=a[i]; writeln('1 massive'); for i:=1 to n do begin write(a[i]:5); if i mod 5 =0 then writeln; end; writeln('2 massive'); for i:=1 to n do begin write(b[i]:5); if i mod 5 =0 then writeln; end; readln end.
Объяснение кода листинга программы
- Объявляются переменные: n, a, b, i, max, min, k, m.
- Задается начальное значение для переменной max, min, k и m.
- Происходит чтение значений из массива a.
- Переменные max и min обновляются при необходимости.
- Обновляются индексы k и m.
- Выводится максимальное значение и его индекс.
- Выводится минимальное значение и его индекс.
- Копируются значения из массива a в массив b.
- Выводится первое массивное значение.
- Выводится второе массивное значение.
- Выводится третий массивный элемент.
- Чтение завершено, выводится финальная строка.