Найти минимальный из положительных элементов массива - Pascal ABC
Формулировка задачи:
Помогите решить, заранее спасибо))
6. Найти минимальный из положительных элементов массива А(N).
Решение задачи: «Найти минимальный из положительных элементов массива»
textual
Листинг программы
program z;
var i,min:integer; f:byte;
a:array [1..10] of integer;
begin
f:=0;
writeln('Ввод массива');
for i:=1 to 10 do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('Вывод массива');
for i:=1 to 10 do
write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i]>0
then
begin
min:=a[i];
f:=1;
end;
for i:=1 to 10 do
if a[i]>0
then
begin
if a[i]<min
then
min:=a[i];
end;
if f=0
then
writeln('В массиве нет положительных элементов!')
else
writeln('Минимальный положительный элемент массива - ',min);
end.
Объяснение кода листинга программы
Список действий в коде:
- Создание переменных:
- i - переменная для цикла;
- min - переменная для хранения минимального положительного элемента;
- f - переменная для проверки наличия положительных элементов в массиве.
- Создание массива a размером 10.
- Ввод элементов массива с помощью цикла и операции чтения.
- Вывод элементов массива с помощью цикла и операции записи.
- Поиск минимального положительного элемента с помощью двух циклов и условий:
- Если элемент больше нуля, то он может быть минимальным положительным элементом, поэтому его значение присваивается переменной min, а переменная f принимает значение 1.
- Если элемент меньше или равен min и его значение больше нуля, то он становится новым минимальным положительным элементом, и переменная f принимает значение 1.
- Проверка наличия положительных элементов в массиве с помощью условия:
- Если f равно 0, значит в массиве нет положительных элементов, и выводится соответствующее сообщение.
- Если f больше 0, значит в массиве есть положительные элементы, и выводится сообщение с минимальным положительным элементом.