Определить максимальный элемент среди положительных чисел - Pascal ABC
Формулировка задачи:
Решение задачи: «Определить максимальный элемент среди положительных чисел»
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 обновляется. После завершения второго цикла, выводится на экран информация о максимальном числе, его позиции в массиве и минимальном отрицательном числе. Таким образом, данный код позволяет определить максимальное положительное число среди чисел, заданных в массиве.