Question

Напишите программу, которая в последовательности натуральных чисел определяет минимальное четное число. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число. Кол-во чисел не превышает 1000. Введеные числа не превышают 30000. Программа должна вывести одно число - минимальное четное число. Паскаль

Answer 1

Var
a,m,k,i: integer;
begin
write('Введите количество чисел в последовательности: ');
readln(k);
m:=30000;/// Максимальное чётное число 
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 0) and (m>a) then m:=a
end;
writeln('Минимальное четное число в последовательности: ',m)
end.

Answer 2

Вот пример программы на языке Паскаль, которая находит минимальное четное число в последовательности натуральных чисел:

program FindMinEvenNumber;

var
  count, number, minEven: integer;
  i: integer;

begin
  minEven := 30001; // Инициализируем переменную minEven значением, которое гарантированно будет превышено в последовательности чисел

write('Введите количество чисел в последовательности: ');
  readln(count);

for i := 1 to count do
  begin
    write('Введите число: ');
    readln(number);

if (number mod 2 = 0) and (number < minEven) then
      minEven := number;
  end;

writeln('Минимальное четное число: ', minEven);
end.

Программа запрашивает количество чисел в последовательности и затем последовательно запрашивает сами числа. При вводе каждого числа программа проверяет, является ли оно четным и меньшим, чем текущее минимальное четное число. Если это так, то число становится новым минимальным четным числом. В конце программа выводит найденное минимальное четное число.

Примечание: В данной программе предполагается, что в последовательности всегда присутствует хотя бы одно четное число.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.