// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Вводите элементы массива'+NewLine,ReadInteger('n='));
Writeln('Max=',a.Max,', min=',a.Min,', среднее=',(a.Min+a.Max)/2)
end.
<u>Пример</u>
n= 8
Вводите элементы массива
3.45 -2.7 1.18 0 -2 4.623 -2.734 7
Max=7, min=-2.734, среднее=2.133
Var
k:integer;
Begin
Write('k = ');ReadLn(k);
For k:= 1 to k do
Write(k*2-1,' ')
End.
Var i,n: integer;
s,t: real;
begin
write('n = '); readln(n);
s:=1; t:=1; i:=1;
repeat
t:=t/i;
s:=s+t;
i:=i+1;
until i>n;
writeln('сумма ряда: ',s:7:5);
<span>end.
</span>
Это невозможно. Ведь есть вероятность того,что карты рубашкой вверх не будут в 2 группах одинакового количества.
Ответ:
Объяснение:
1.Движение на метры,до конца экрана считай.
2.после движения всегда делать "говорить". привет.
3.После этого есть вкладка движение,после 2 делай повернутся на 90 град.
4.Ждать 3 секунды,И делай повторно 1.
5.Образы,делаешь мишь там,и меняешь образ.
6.Повернутся на 30-60 град. и делаешь 1.
7.Делаешь 2,только "Все понятно?"