№1
=ЕСЛИ(И( A2>=160; B2<13);"Принят";"Нет")
№2
3
№3
=$C5*2
Const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(90);
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (a[i] mod 2 <> 0)and(a[i] mod 3 = 0) then s:=s+a[i];
writeln('s=',s);
end.
Пример:
Исходный массив:
66 14 74 6 15 65 42 37 34 0 63 75 69 17 50 15 78 14 7 35
s=237
===== PascalABC.NET =====
begin
var a := ArrRandom(12, -2, 15);
Println('Исходный массив');
a.Println;
Println('Отобранные элементы');
a[2:].Println;
Println('После сортировки');
a[2:].Sorted.Println
end.
1) 855(16)/1B(16)=4F(16)
2) 4E.8(16)*4D.A=17C<span>D.9(16)
Подробное решение столбиком в прикрепленных.
</span>
249,6, если мы округляем до сотых, то ответ будет равен 249.60