Задания с одномерными, и двухмерными массивами - PascalABC.NET

Формулировка задачи:

Задание 1.1 В одномерном массиве из 10 чисел вычислить средние арифметическое, у которого последняя цифра 1. Задание 1.2 В двухмерном массиве 5 на 5 из целых чисел вычислить сумму чисел расположенных по периметру.

Решение задачи: «Задания с одномерными, и двухмерными массивами»

Листинг программы

var a : array [1..10] of integer;
    sum : single;
begin
  for var i:=1 to 10 do
  if i=10 then a[i]:=1
  else Read(a[i]);
  for var i:=1 to 10 do
  sum:=sum+a[i];
  sum:=sum/10;
  Writeln(a);
  Writeln('Ср.арифм. = ', sum:1:2);
end.

Объяснение кода листинга программы

Объявляется одномерный массив a размером 10 и переменная sum типа single.
В цикле for происходит заполнение массива a значениями от 1 до 10 или считывание значений из файла (по задумке автора).
В цикле for происходит суммирование всех элементов массива a.
Полученная сумма делится на 10.
Выводится содержимое массива a.
Выводится среднее арифметическое массива a.