В ПАСКАЛЕ.дан массив из 20 чисел.найти сумму первых десяти (1..10),произведение последних...

Question

В ПАСКАЛЕ.дан массив из 20 чисел.найти сумму первых десяти (1..10),произведение последних десяти (11..20) и среднее арифметическое этих результатов.

Answer 1

Const
n=20;
var
a:array[1..n]of integer;
p,s:real;
i:integer;
begin   p:=1;{начальное значение р, чтобы при умножении произведение не было =0}
     for i:=1 to n do
           begin
              a[i]:=random(20); {массив заполняется случайными числами [0;20)}
               write(a[i]:4); {массив выводится на экран}
                     if i<=10 then {если номер элемента <=10}<br>                        s:=s+a[i]    {то считаем сумму элементов}
                     else
                        p:=p*a[i]; {иначе, т.е если номер элемента >10 считаем произв ]
           end;
   writeln;
 writeln('сумма = ',s:4:0,'   p= ',p:4:0)     {выводим сумму и произвед на экран}  ;
writeln('среднее = ',(p+s)/2);   {выводим среднее}
end.

Comments

поясни решение,пожалуйста

---

пояснения ввела в программу в фигурных скобках. Можно так и оставить, программа не обрабатывает то, что находится в фигурных скобках (коментариях)