Найти среднее арифметическое всех элементов массива

[SIZE=2]Program Srednee;[/SIZE]
[SIZE=2]uses crt; //модуль для работы с экраном и клавиатурой[/SIZE]
[SIZE=2]const nmax=20; //максимальный размер массива[/SIZE]
[SIZE=2]var n,k:integer;[/SIZE]
[SIZE=2]sr:real; //ср. арифм.[/SIZE]
[SIZE=2]x:array[1..nmax]of real;[/SIZE]
[SIZE=2]begin[/SIZE]
[SIZE=2]clrscr; //очищаем экран[/SIZE]
[FONT=Courier New][SIZE=2]randomize;[/SIZE][/FONT][SIZE=2][FONT=Times New Roman] //генерация случайных чисел[/FONT][/SIZE]
[SIZE=2]repeat //вводим [/SIZE][FONT=Courier New][SIZE=2]n[/SIZE][/FONT][SIZE=2] с проверкой интервала[/SIZE]
[SIZE=2]write('n=');readln(n);[/SIZE]
[SIZE=2]until (n>0)and(n<=nmax);[/SIZE]
[SIZE=2]writeln('Ishodnyj massiv:');[/SIZE]
[SIZE=2]sr:=0; //обнуляем среднее[/SIZE]
[SIZE=2]for k:=1 to n do[/SIZE]
[SIZE=2]   begin[/SIZE]
[SIZE=2]      x[k]:=random(10)+random; //случайные вещественные числа в инт.(0,10)[/SIZE]
[SIZE=2]      sr:=sr+x[k]; //складываем элементы массива[/SIZE]
[SIZE=2]      write(x[k]:6:2); [/SIZE]
[SIZE=2]     //выводим на экран 6-количество позиций прод число,2-знаки   после запятой[/SIZE]
[SIZE=2]   end;[/SIZE]
[SIZE=2]writeln; //переход на новую строку[/SIZE]
[SIZE=2]writeln('Srednee arifmeticheskoe =',sr/n:0:2); //выводим значение среднего ([/SIZE][FONT=Courier New][SIZE=2]sr/n[/SIZE][/FONT][SIZE=2])[/SIZE]
[SIZE=2]readln[/SIZE]
[SIZE=2]end.[/SIZE]

uses crt;
var a:array[1..5,1..5] of byte;
    i,j:integer;
begin
clrscr;
for j:=1 to 5 do
for i:=1 to 5 do
if odd(j) then a[i,j]:=5*(j-1)+i
else a[i,j]:=5*j+1-i;
for i:=1 to 5 do
   begin
     for j:=1 to 5 do
     write(a[i,j]:4);
     writeln;
   end;
readln
end.