Найти максимальное нечетное и минимальное четное числа - 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.

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

  1. Создается переменная a типа array[1..100] of integer;, которая будет хранить исходный массив чисел.
  2. Затем, в цикле for, считывается размер массива n от пользователя.
  3. В цикле for считываются числа из массива a и выводятся на экран через write(a[i],' ').
  4. Далее, создаются две переменные min и max со значениями 1 и 2 соответственно.
  5. В цикле for происходит проверка: если текущее число в массиве a больше минимального числа и оно нечетное, то значение min обновляется. Аналогично, если текущее число в массиве a меньше максимального числа и оно четное, то значение max обновляется.
  6. После завершения цикла, выводится на экран максимальное число a[max] и минимальное число a[min].

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы