Var a,b,c,d:integer;
beginwriteln('введите десять чисел');
readln(a);
b:=1;
d:=0;
for c:=2 to 10 do
begin
readln(a);
if (a > 0) then b:=b*a;
if (a < 0) then d:=d+a;
end;
writeln('положительные ',b);
writeln('отрицательные ',d)
<span>end.</span>
1) Высокая скорость обработки;
2) Растровая графика используется сейчас практически везде;
3) Воспроизводит почти любой рисунок
5a²-20a+20=5(a²-4a+4)=5(a-2)²
Так как нужны только 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.
...нужен Топор
...огород - лейка
...во льду прорубь
...это еж.