<em>VAR</em>
<em> s: String;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em> Write((Ord(s[1])-48)*(Ord(s[2]) + Ord(s[3]) - 96));</em>
<em>END.</em>
2596 в 10 системе счисления
Const
n = 8;
nmax = 32767;
var
a: array[1..n] of integer;
i, t, min: integer;
begin
min := nmax;
for i := 1 to n do
begin
Read(t); a[i] := t;
if (t > 0) and (t mod 2 = 0) then
if min > t then min := t
end;
if min <> nmax then
Writeln('Минимальный положительный четный элемент равен ', min)
else
Writeln('В массиве нет четных положительных элементов')
end.
<u>Тестовое решение:</u>
353 638 -1000 -452 320 -18 19 0
Минимальный положительный четный элемент равен 320