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

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

В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить порядковый номер самого быстрого автомобиля.Если таких автомобилей несколько,то должен быть найден номер: a) первого из них; б) последнего из них.

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

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

Program NF;
uses Crt;
const N=5;
var a:array [1..N] of word;
    imax,max,fimax,i:word;
 
begin
RANDOMIZE;
        clrscr;
        for i:=1 to N do readln(a[i]);
        for i:=1 to N do write(a[i]:5);
        max:=a[1]; imax:=1;
        for i:=1 to N do
        begin
                if (a[i]>=max) then
                begin
                    max:=a[i];
                    imax:=i;
                end;
        end;
        for i:=1 to 40 do
                if (a[i]=max) then
                begin
                fimax:=i;
                break;
                end;
        writeln('Первая встреченная машина с макс скоростью и ее номер=',fimax);
        writeln('Номер последней машины с макс скоростью=',imax);
readln;
end.

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

В данном коде используется язык программирования Pascal. Он предназначен для определения порядкового номера самого быстрого автомобиля из массива данных. Переменные в коде имеют следующие значения и названия:

N - количество автомобилей в массиве (5).
a - массив, содержащий данные об автомобилях.
max - переменная для хранения максимальной скорости.
imax - переменная для хранения индекса автомобиля с максимальной скоростью.
fimax - переменная для хранения индекса первой встречной машины с максимальной скоростью.
i - переменная для перебора элементов массива. Код начинается с объявления переменных и установки начальных значений. Затем происходит чтение данных из стандартного ввода и вывод их на экран. После этого происходит поиск первой встречной машины с максимальной скоростью и сохранение ее индекса и номера. Наконец, выводится информация о первой встречной машине с максимальной скоростью и номере последней машины с максимальной скоростью. Код использует цикл for для перебора элементов массива и условные операторы if для проверки условий.