Дан целочисленный массив a из 10 элементов. найти среднее арифметическое элементов массива. , pascalabc

Program n1;
var a: array[1..10] of integer;
sum,i: integer;
begin
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
writeln('срзнач: ',sum/10);
end.

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-99,99); a.Println;
  Writeln('Ср.арфиметическое равно ',a.Average:0:1)
end.

Пример
91 -37 67 -2 -66 -5 45 -44 79 61
Ср.арфиметическое равно 18.9

#include <iostream>
using namespace std;

int main() {
    bool checkA = false;
    bool checkB = false;
    int a;
    int b;
    cin >> a >> b;
    cout << "Entered nums: \n";
cout << a << "\n";
cout << b << "\n";
if(a >= 0) {
    checkA = true;
    cout << a << " is >= 0 \n";
}
else {
    checkA = false;
    cout << a << " isn't >= 0 \n -Failed \n";
}
if(b <= 9) {
    checkB = true;
    cout << b << " is <= 9 \n";
}
else {
    checkB = false;
    cout << b << " isn't <= 9 \n -Failed \n";
}
if(checkA&&checkB == true) {
    int sum = a+b;
    cout << "Sum is " << sum;
}
else {
    cout << "\n Wrong nums";
}
}

#include <iostream>
using namespace std;

int main() {
    bool checkA = false;
    bool checkB = false;
    int a;
    int b;
    cin >> a >> b;
    cout << "Entered nums: \n";
cout << a << "\n";
cout << b << "\n";
if(a >= 0) {
    checkA = true;
    cout << a << " is >= 0 \n";
}
else {
    checkA = false;
    cout << a << " isn't >= 0 \n -Failed \n";
}
if(b <= 9) {
    checkB = true;
    cout << b << " is <= 9 \n";
}
else {
    checkB = false;
    cout << b << " isn't <= 9 \n -Failed \n";
}
if(checkA&&checkB == true) {
    int sum = a+b;
    cout << "Sum is " << sum;
}
else {
    cout << "\n Wrong nums";
}
}