profile
Опубликовано 5 лет назад по предмету Информатика от laysergforever

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

  1. Ответ
    Ответ дан karxarat
    i, k, m, min, max:integer;
    a, b:array[1..30000] of integer;
    begin
    readln(n);
    for i:=1 to n do
    readln(a[i]);
    max:=a[1];
    for i:=1 to n do
    if min>a[i] then min:=a[i];
    k:=1;
    for i:=1 to n do
    if ((a[i] mod 2)=0) then begin b[k]:=a[i]; k:=k+1; end;
    max:=b[1];
    for i:=1 to k do
    if max>b[i] then max:=b[i];
    writeln(min, ' ', max);
    readln;
    end.
Самые новые вопросы