Ответ:
Нужнл свое придумать?
Объяснение:
1- обществознание
2- быть образованным человеком
3- реализованым
4- все успеваю
5-
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!
1. Функция
function avg(a:array of integer):=a.Where(t->t>0).Average;
begin
var a:=ReadAllText('input.txt').ToIntegers;
Writeln('Среднее значение положительных элементов ',avg(a))
end.
2. Процедура
procedure avg(a:array of integer; var m:real);
begin
m:=a.Where(t->t>0).Average
end;
begin
var a:=ReadAllText('input.txt').ToIntegers;
var m:real;
avg(a,m);
Writeln('Среднее значение положительных элементов ',m)
end.
Хорошо видно, что решение с функцией имеет явное преимущество.
из 457 в 14 :
1)стереть (45)
2)умножить на 2 (90)
3)стереть (9)
4)*2 (18)
5)*2 (36)
6)*2 (72)
7)стереть (7)
8)*2 (14).
из 167 в 10 :
1)*2 (334)
2)стереть (33)
3)*2 (66)
4)*2 (132)
5)стереть (13)
6)*2 (26)
7)*2 (56)
8)стереть (5)
9)*2 (10).
В скобках числа которые получаються)))
Ответ В:
t = y = 5
y = 11mod5 = 1
x = t = 5
y = 1 + 2 * 5 = 11