Помогите с решением задачи. на паскале

0
В заданной матрице A(n*n) найти минимум всех сумм абсолютных величин элементов матрицы по столбцам. Использовать процедуры ввода и вывода элементов матрицы по строкам.
21 апреля, 17 аноним,  в категории Компьютеры, Интернет
 
Ваш ответ
Отображаемое имя (по желанию):
Анти-спам проверка:

1 Ответ
0
21 апреля, 17 аноним, 
const n = 2;
var A:array[1..n,1..n] of integer; sum,min,i,j:integer;
begin
for i := 1 to n do begin
for j := 1 to n do begin
write('A[',i,',',j,']=');readln(A[i,j]);
end;
writeln;
end;

writeln('Source matrix:');
for i := 1 to n do begin
for j := 1 to n do begin
write(A[i,j]:4);
end;
writeln;
end;

min := MaxInt;
for j := 1 to n do begin
sum := 0;
for i := 1 to n do begin
sum := sum + abs(A[i,j])
end;
if min>sum then min := sum;
end;
writeln('Minimum amount = ',min);
end.
Copyright © 2016 Вопросы и ответы онлайн - sovety.info | Для связи: site@sovety.info
Мнение редакции может не совпадать с мнением авторов вопросов и ответов.
Индекс цитирования
...