Ответ единица. :)
Пояснения или решение нужны?
Таблица истинности во вложении.
Var x:array[1..10] of integer;
i,n,s:integer;
begin s:=0;
for i:=1 to n do
read(x[i]);
for i:=1 to n do
if x[i] mod2=1 then s:=s+x[i];
writeln('s=,s);
readln;
readln
end.
Думаю так будет.
650 ПЕРЕВЕСТИ В КБ И ДЕЛИТЬ НА 3072
650x1024=665600
665600/3072=216,6сек
216,6/60=3,61мин