Паскаль: в произвольно заданном одномерном массиве определить 4 элемента с наибольшими значения. определить сколько отрицательных значений оказалось среди найденных

Предыдущий
вопрос Следующий
вопрос

Для решения этой задачи можно использовать следующий код на языке Паскаль:

program MaxValues;
const
N = 10;
var
arr: array[1..N] of integer;
i, j, max1, max2, max3, max4, countNeg: integer;
begin
countNeg := 0;
// Заполняем массив случайными значениями
randomize;
for i := 1 to N do
arr[i] := random(20) - 10; // Генерируем значения от -10 до 10
// Находим 4 элемента с наибольшими значениями
max1 := -11;
max2 := -11;
max3 := -11;
max4 := -11;
for i := 1 to N do
begin
if arr[i] > max1 then
begin
max4 := max3;
max3 := max2;
max2 := max1;
max1 := arr[i];
end
else if arr[i] > max2 then
begin
max4 := max3;
max3 := max2;
max2 := arr[i];
end
else if arr[i] > max3 then
begin
max4 := max3;
max3 := arr[i];
end
else if arr[i] > max4 then
begin
max4 := arr[i];
end;
end;
// Подсчитываем количество отрицательных значений среди найденных
if max1 < 0 then
countNeg := countNeg + 1;
if max2 < 0 then
countNeg := countNeg + 1;
if max3 < 0 then
countNeg := countNeg + 1;
if max4 < 0 then
countNeg := countNeg + 1;
// Выводим результат
writeln('4 элемента с наибольшими значениями: ', max1, ', ', max2, ', ', max3, ', ', max4);
writeln('Количество отрицательных значений среди найденных: ', countNeg);
end.

Данный код создает массив из 10 случайных целых чисел от -10 до 10, находит 4 элемента с наибольшими значениями и подсчитывает количество отрицательных значений среди них.