Найти наибольший элемент массива и его порядковый номер - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста Вычислить на ЭВМ наибольший элемент массиваи его порядковый номер;. Проверить правильность программы на тесте при n=3 и следующих элементах массива(1.5, 4.3, 2.4). При выполнении задания необходимо использовать прием нахождения наибольшего. Для этого перед циклом следует задать начальное значение наибольшего, равное первому элементу массива, а в цикле сравнить наибольший с текущим элементом массива; в том случае, если текущий элемент больше наибольшего из предыдущих, то считать его наибольшим. Для нахождения порядкового номера наибольшего элемента массива необходимо перед циклом задать его начальное значение, равное 1, а в цикле всякий раз, когда текущий элемент массива больше наибольшего, считать номером наибольшего номер текущего элемента массива. Схема алгоритма решения представлена на рис.5.1. Блок 2 осуществляет ввод значения n и массива X, состоящего из n элементов. Блок 3 задает начальные значения . Блок 4 организует цикл, перебирающий элементы массива, начиная со второго и кончая n-ым . Блоки 4 и 5 находят наибольший элемент массива и его порядковый номер. Блок 7 за циклом выводит результаты на печать.

B(50)

определить максимальный элемент массива

и его порядковый номер

x_i > 0

Решение задачи: «Найти наибольший элемент массива и его порядковый номер»

Листинг программы

uses Crt;
const n=3;
var i,j:integer;
max:real;
a:array [1..n] of real;
 
begin
    ClrScr;
    writeln('Введите массив: ');
    for i:=1 to n do
        read(a[i]);
    writeln('Ваш массив: ');
    max:=a[1];
    j:=1;
    for i:=1 to n do begin
        write(a[i]:0:1,' ');
        if a[i]>max then begin max:=a[i]; j:=i; end;
    end;
    writeln;
    writeln('max= ',max:0:1,'  номер max= ',j);
    readln;
    readln;
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Объявляет необходимые переменные: n (количество элементов в массиве), i (индекс внутреннего цикла), j (индекс внешнего цикла), max (максимальное значение элементов массива), a (массив для хранения введенных пользователем значений).
Запрашивает у пользователя ввести массив из n элементов.
Считывает n элементов массива и сохраняет их в соответствующих переменных.
Инициализирует переменную max значением первого элемента массива (a[1]).
Инициализирует переменную j значением 1, так как это начальный индекс внешнего цикла.
Запускает внешний цикл от 1 до n. На каждой итерации внутреннего цикла считывает значение текущего элемента массива и сравнивает его с текущим максимальным значением. Если текущий элемент больше максимального, обновляет значения переменных max и j.
Выводит на экран массив, начиная с индекса 1 и заканчивая последним элементом.
Выводит на экран максимальное значение и его порядковый номер.
Завершает работу программы.