Какой результат будет выдан после запуска программного кода на выполнение?

Привет! Давай разберемся, что делает программа.

Пользователь вводит число (148).

Дальше у нас идёт цикл в предусловием, который будет "откусывать" по цифре каждый проход, пока n > 0. Внутри цикла мы проверяем цифру на четность, если четна, то мы прибавляем к сумме, если нет, то ничего не делаем.

Получается, что программа находит сумму четных цифр в числе.

В нашем числе 2 четные цифры, 4 + 8 = 12

ответ: 12

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe