<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
<u>Результат</u>
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
M = [-10, -9 .. 10]
f(x) = x*x - (if (x > 1) then x else sin(x))
main = print(map f(m))
Так как нужны только 3 и 4 элементы, полностью массив можно не рассматривать, достаточно рассмотреть элементы 3 и 4.
Массив заполняется следующим образом:
Если индекс элемента четный, то элементу присваивается i/2.
Если индекс элемента не четный, то элементу присваивается (i+1)/2
У элемента a[3] индекс равен 3, нечетный, значит ему будет присвоено (3+1)/2 = 2
У элемента a[4] индекс равен 4, четный, значит ему будет присвоено 4/2 = 2
Получается, что элемент a[3]=2 и a[4]=2, среднее арифметическое 2.
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.
А если у музыканта не ту музыкального инструмента ,то он закачевает на компьютер а который нужен инструмент!!!!¡!
понял дружок,пирожок?