Карта памяти? Или SD карта
Begin
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.
1.1-в,2-г,3-б,4-а
Больше незнаю, извени.
Для начала рассмотрим число 0.000041. Нам нужно преобразовать данное число в дробь, у которой первая цифра после запятой неравна 0. Всего в записи 5 нулей, следовательно это число можно записать как 4.1*10^(-5).
Получаем такое выражение: 4.1*10^(-5)*10^2
Складываем степени десяток, так как основания одинаковые. Получаем 4.1*10^(-3).
//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n =');
var X := ArrRandom(n, -99, 99);
X.Println;
var Y := ArrRandom(n, -99, 99);
Y.Println;
for var i := Low(X) to High(X) do
if Y[i] > X[i] then Swap(Y[i], X[i]);
writeln();
X.Println;
Y.Println;
end.