Задача:

Дан одномерный массив из 50 ячеек, каждая заполнена случайным образом
числом от 1 до 20 найти среднюю арифметическую сумму этих чисел

Решение:

program primer;
uses CRT;
var a: array [1..50] of integer;
s,i: integer;
arifm: real;
begin
textcolor (4);
randomize;
s:=0;
for i:=1 to 50 do a[i]:=random(19)+1;
for i:=1 to 50 do s:=s+a[i];
arifm:=s/50;
writeln ('среднее арифметическое=', arifm);
readkey;
end.