Определить максимальный элемент среди положительных чисел - Pascal ABC

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

Задан массив из N действительных чисел. Определить количество максимальных элементов. Определить максимальный элемент среди положительных чисел и максимальный среди отрицательных чисел и их номера.

Решение задачи: «Определить максимальный элемент среди положительных чисел»

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

const
    n = 100;
 
var
    i, k_max, max, neg_max: integer;
    a: array[1..n] of integer;
 
begin
    for i := 1 to n do 
    begin
        a[i] := random(100) - 50;
        write(a[i], ' ');
    end;
    writeln();
    
    max := a[1];
    k_max := 1;
    neg_max := 0;
    for i := 1 to n do 
    begin
        if a[i] > max then begin
            max := a[i];
            k_max := 1;
        end;
        if a[i] = max then k_max := k_max + 1;
        if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then 
            neg_max := a[i];
    end;
    
    writeln('Max: ', max, ' k=', k_max);
    writeln('Positive: ', max);
    writeln('Negative: ', neg_max);
end.

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

В данном коде используется язык программирования Pascal ABC. Он предназначен для определения максимального элемента среди положительных чисел. В начале кода объявляются необходимые переменные: n - количество чисел, которые будут использоваться в примере; i - переменная для цикла, который будет проходить по числам от 1 до n; k_max - переменная для хранения значения максимального числа; max - переменная для хранения значения максимального числа; neg_max - переменная для хранения значения минимального отрицательного числа. Также объявляется массив a, в котором будут храниться числа. Затем начинается цикл, который проходит по каждому числу от 1 до n. Внутри цикла число a[i] присваивается случайное значение от 0 до 99 (включительно), затем оно выводится на экран. После завершения первого цикла, переменная max присваивается значению первого элемента массива a. Затем начинается второй цикл, который проверяет все числа от 1 до n. Если текущее число больше max, то max обновляется. Если текущее число равно max, то переменная k_max увеличивается на 1. Если текущее число отрицательное и его абсолютное значение больше, чем абсолютное значение neg_max, то neg_max обновляется. После завершения второго цикла, выводится на экран информация о максимальном числе, его позиции в массиве и минимальном отрицательном числе. Таким образом, данный код позволяет определить максимальное положительное число среди чисел, заданных в массиве.