Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы - 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.
Объяснение кода листинга программы
В данном коде формируется одномерный массив из сумм квадратов элементов каждого столбца матрицы.
- Переменные объявляются следующим образом:
- m и n - это количество столбцов и строк в матрице соответственно.
- mx - это матрица, заполненная значениями от -10 до 19 (random(20)).
- arr - это массив, в который будут заноситься суммы квадратов элементов столбцов.
- i и j - это переменные для прохода по строкам и столбцам матрицы.
- s - это переменная для хранения суммы квадратов элементов столбца.
- Сначала происходит заполнение исходной матрицы случайными значениями от -10 до 19.
- Затем происходит проход по столбцам матрицы.
- Для каждого столбца вычисляется сумма квадратов элементов этого столбца и записывается в переменную s.
- После прохода по всем столбцам, полученная сумма записывается в соответствующий элемент массива arr.
- Наконец, выводится массив сумм квадратов элементов столбцов. Обратите внимание, что данный код не использует вложенные списки.