Написать функцию, которая вычисляет сумму квадратов элементов заданной строки. - Pascal ABC

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

Нужно написать функцию, которая вычисляет сумму квадратов элементов заданной строки. Номер строки передается в функцию в качестве параметра. Заранее спасибо.

Решение задачи: «Написать функцию, которая вычисляет сумму квадратов элементов заданной строки.»

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

type mtr=array[1..10,1..10] of integer;
function summa(a:mtr;n,k:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+sqr(a[k,i]);
summa:=s;
end;
var a:mtr;
    m,n,i,j:integer;
begin
writeln('Введите размеры матрицы m,n  от 2 до 10');
readln(m,n);
randomize;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Суммы квадратов элементов строк');
for i:=1 to m do
writeln(i:2,'=',summa(a,n,i));
end.

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

В данном коде реализован алгоритм вычисления суммы квадратов элементов заданной строки матрицы.

Тип переменной mtr определен как массив 2-мерных целых чисел размером от 1 до 10.
Функция summa принимает на вход матрицу a, номер строки n и номер столбца k. В цикле суммируются квадраты элементов строки n по столбцу k, начиная с первого элемента. Результат сохраняется в переменной s.
Переменная summa присваивается значение переменной s.
В основной части программы запрашиваются размеры матрицы m и n (принимаются только значения от 2 до 10).
В цикле по строкам матрицы (от i=1 до m) заполняются элементы матрицы a случайными числами от -10 до 10 с шагом 1.
Выводится на экран заполненная матрица a.
В цикле по строкам матрицы (от i=1 до m) вычисляется сумма квадратов элементов строки n и выводится на экран.