Найти максимальное нечетное и минимальное четное числа - Pascal
Формулировка задачи:
Помогите пожалуйста. Задачка по паскалю. Найти максимальное нечетное и минимальное четное числа.
Помогите пожалуйста..очень нужно...
Решение задачи: «Найти максимальное нечетное и минимальное четное числа»
textual
Листинг программы
var a:array[1..100] of integer; i,n,s,b,max,min,f,x:integer; begin randomize; write('Введите размер массива: '); readln(n); writeln('Исходный массив: '); for i:=1 to n do begin a[i]:=random(20)-10; write(a[i],' '); end; writeln; min:=1; max:=2; for i:=1 to n do begin if (a[min]>a[i]) and (not odd(i)) then min:=i; if (a[max]<a[i]) and (odd(i)) then max:=i; end; write('Max= ',a[max]); writeln; write('Min= ',a[min]); end.
Объяснение кода листинга программы
- Создается переменная
a
типаarray[1..100] of integer;
, которая будет хранить исходный массив чисел. - Затем, в цикле
for
, считывается размер массиваn
от пользователя. - В цикле
for
считываются числа из массиваa
и выводятся на экран черезwrite(a[i],' ')
. - Далее, создаются две переменные
min
иmax
со значениями 1 и 2 соответственно. - В цикле
for
происходит проверка: если текущее число в массивеa
больше минимального числа и оно нечетное, то значениеmin
обновляется. Аналогично, если текущее число в массивеa
меньше максимального числа и оно четное, то значениеmax
обновляется. - После завершения цикла, выводится на экран максимальное число
a[max]
и минимальное числоa[min]
.