Begin
var ar := arrrandom(30, 1, 20);
ar.Println;
writeln(ar.Where(x -> x mod 2 = 0).Sum);
var a := readinteger;
write(ar.Where(x -> x > a).Count);
end.
Если расход электроэнергии записан в ячейках столбца A (например в A1), то для расчета оплаты можно использовать формулу:
=ЕСЛИ(A1<=100;A1*1,5;ЕСЛИ(A1<300;A1*1,8;A1*2))
Данные записанные в одну строку таблицы это - основы.
625Кбайт = 625*1024*8 = 5120000бит
5120000/128000=40 сек