Program ggl;
var n, i, sum : integer;
a : array [1..1000] of integer;
begin readln (n);
sum := 0;
for i := 1 to n do begin
a[i] := random (100);
write (a[i], );
sum := sum + a[i];
end;
writeln;
write (sum / n);
end.
ОБЪЯСНИТЬ ЧТО ВЫПОЛНЯЕТ КАЖДАЯ СТРОКА!!!

program ggl;
Это название программы
var  n, i, sum : integer; 
Описание переменных
a : array [1..1000] of integer;
Описание массива а (он целочиленный, в интервале от 1 до 1000)
begin  readln (n);
Начало программы, запрос значение переменной n
 sum := 0;
Присвоение переменной sum значение 0
begin  readln (n);
  sum := 0;
  for i := 1 to n do  begin  
  a[i] := random (100);    
write (a[i], );   
 sum := sum + a[i];  
end;  
begin характеризует начало новой подпрограммы. Она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран.
После идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). Подпрограмма кончается.
writeln;  
write (sum / n);
end.
Вывод значения деления переменной sum на переменную n. Конец всей программы.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.