Кубик із цифрами від 1 до 6 підкидають п'ять разів. Складіть програму обчислення середнього значення цих чисел із використанням функції з параметрами.

ответ:1) Что такое определённая взаимосвязь? 2) Название какого-либо произведение. 3) Что такое ряд строк в газете? 4) Чем мы открываем дверь? 5) Участок земли. 6) Изменение формата программы.7) Просачивание, газов через пористые вещества , естественное процеживание жидкостей. 8)Информация о чём либо. 9 ) Перечень чего либо , в определённом порядке по графам. 10) Встроенный режим фильтрации . 11) Алгоритм, который упорядочивает списки и другие структуры. 12) Ряд слов, написанные в одну линию. 13) Форма жизни и деятельности, образ жизни, манера себя вести, одеваться. 14) Стремление добиться чего либо , найти то что нужно. 15) Пустая декларация , мысли занесённые на бумагу . 16) Объём звучания певческого или музыкального голоса. 17) Отверстие, углубление.

//где-то не закрыла begin end
var A:array [1..40] of integer;
sa,s3,s10,k,i: integer;
begin
sa:=0;
s10:=0;
s3:=0;
k:=0;
writeln('исходные значения');
for i:=1 to 40 do
begin
 A[i]:= random(21);
write(A[i],'')
end;
writeln;
for i:=1 to 40 do
 begin
 if A[i]mod 2<>0 then
begin
 sa:=sa+A[i];
k:=k+1;
if A[i]<10 then s10:=s10+A[i];
if A[i] mod 3=0 then
s3:=s3+A[i];                                     //здесь было странное выражение   
end;
end;                                                  //здесь
writeln('среднее арефмитическое нечетных чисел',sa/k:5:0);
writeln('сумма чисел, не превышающих', s10);
writeln('сумма чисел, кратных трем', s3);
End.