Определите среднее арифметическое элементов массива.

Uses crt; const n = 5; var a: array[1..n] of integer; sun,k,i: integer; begin for i: =1 to n do  readln(a[i]); sum: =0; k: =0;   for i: =1 to n do begin sum: =sum+a[i]; k: =k+1; end; writeln(sum/k); end.

Ну uses crt для того если я не ошибаюсь что-бы работала программа var это переменные writeln это то что обычно будет написано программой readln это то число которое ты будешь вводить дальше веселей скажу на своём если i равно 1 или n тогда  начали  если j равно 1 или n тогда если i равно 1 или i равно n написать 0 в противном случае если i больше или равно  j   и i+j  меньше или равно n+1 тогда написать 1  в противном случае если i меньше или равно j и  i+j  больше  или равно n+1 тогда написать 1  в противном случае написать 0 

Вдвоичную: 631 -  1001110111, 78 -  1001110, 15 -  1111, 1001 -  1111101001, 737 -  1011100001.  в восьмеричную:   71718 -  214046,  22222 -  53316,  131 -  203, 101010 -  305222, 1351 -  2507.в шестнадцатеричную:   135790 -  2126e,  99999 -  1869f, 3001 -  bb9.из двоичной в восьмеричную:   010101110 -  256,  001011101110  -  1356,  001110011100111 -  16347.  из двоичной в шестнадцатеричную:   0011110111101111 -  3def,  101010  -  2a,  001100110011000101010101  -  333155.