Вроде вывод и ввод получается спирт
DIM b AS STRING * 1
DIM a AS STRING * 100
DIM i, k, n AS INTEGER
INPUT "INPUT STRING", a$
INPUT b$
k = LEN(a$)
FOR i = 1 TO k
IF MID$(a$, i, 1) = b$ THEN
n = n + 1
END IF
NEXT i
PRINT n
END<span>
</span>
Var
n,s,k,a,i:integer;
begin
Read(n);
s:=0; k:=0;
for i:=1 to n do begin
Read(a);
s:=s+a;
if a mod 2=0 then Inc(k)
end;
Writeln(s,' ',k)
end.
Результат
7 2 3 -2 4 -7 10 1
11 4
X = 9C, y = 238__________________________
28,25 байт
0,0276 кбайт
0,0000269 мегабайт<span>
0,221 килобита</span>
<span>0,000216</span> мегабита
В остальное там 200 символов.