Найти в массиве наибольший и наименьший элементы и определить их индексы - 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.

Объяснение кода листинга программы

  1. Объявляются переменные: n, a, b, i, max, min, k, m.
  2. Задается начальное значение для переменной max, min, k и m.
  3. Происходит чтение значений из массива a.
  4. Переменные max и min обновляются при необходимости.
  5. Обновляются индексы k и m.
  6. Выводится максимальное значение и его индекс.
  7. Выводится минимальное значение и его индекс.
  8. Копируются значения из массива a в массив b.
  9. Выводится первое массивное значение.
  10. Выводится второе массивное значение.
  11. Выводится третий массивный элемент.
  12. Чтение завершено, выводится финальная строка.

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы