Programsumma; usescrt; constn=5; var a: array[1..n] of integer; m,i,s: integer; автоматическое заполнение случайными числами от1 до20 procedure input; procedure input; begin begin for i: =1 to n do p: =1; q: =20; randomize; begin for i: =1 to n do a[i]: =random(q-p+1)+p; write('a[',i,']='); readln(a[i]); end; end end; procedure print; begin write('массив целых чисел а: '); for i: =1 to n do write(' ',a[i]) writeln; writeln; { пропуск строки } end; procedure sum( m: integer); begin s: =0; for i: =1 to m do s: =s+a[i]; end; begin clrscr; input; { заполнение массива из 5 элементов } clrscr; print; { печать заполненного массива } write('сколько элементов суммировать: '); readln(m); sum(m); writeln; { суммирование m элементов массива } writeln('сумма ',m,' элементов массива равна: ', s); { суммирование всех элементов массива } sum(n); writeln; writeln('сумма всех ',n,' элементов массива равна: ', s); write ('среднее арифметическое всех элементов равно ', s/n); readkey; end. з а д а н и я: 1. набрать и исполнить программу. 2. увеличить число элементов массива. 3. найти сумму 8 элементов массива. 4. осуществить ввод количества элементов массива с клавиатуры.