Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы - Turbo Pascal

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

Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы. Все что находил все было не рабочим, помогите пожалуйста все-таки ее решить)

Код к задаче: «Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы - Turbo Pascal»

textual
const
  m = 7; {столбцы}
  n = 4; {строки}
var
  mx : array[1..n, 1..m] of integer; {матрица}
  arr : array[1..m] of longint; {массив сумм квадратов столбцов}
  i, j : integer;
  s : longint;
begin
  randomize;
  {заполним и выведем матрицу}
  writeln('исходная матрица (запонена случайно!)');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      mx[i,j] := -10 + random(20);
      write(mx[i,j] : 5)
    end;
    writeln
  end;
  {проходим сначала по столбцам}
  s := 0; {сумма квадратов}
  for j := 1 to m do
  begin
    for i := 1 to n do s := s + sqr(mx[i,j]); {суммируем квадраты в строках}
    arr[j] := s; {заносим результат в массив}
    s := 0; {обнуляем счетчик перед проходом след. столбца}
  end;
  {вывод массива сумм квадратов}
  writeln('массив сумм квадратов элементов столбцов');
  for j := 1 to m do write(arr[j] : 7);
  readln
end.

13   голосов, оценка 4.308 из 5


СОХРАНИТЬ ССЫЛКУ