Найти такую диагональ матрицы, сумма модулей элементов которой минимальна по сравнению с другими диагоналями

@JD Stive · Регистрация: 28.01.2010

Author24 — интернет-сервис помощи студентам

Среди диагоналей квадратной матрицы, параллельных главной и расположенных ниже нее, найти такую, сумма модулей элементов которой минимальна по сравнению с другими диагоналями.

@Puporev · 01.04.2010, 21:34

Pascal

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,c,sum,k,min,l,p:integer;
begin
clrscr;
write('Vvedite razmernost matricy n= ');readln(n);
randomize;
Writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to n  do
       begin
        a[i,j]:=random(20)-9;
        write(a[i,j]:4);
       end;
     writeln;
   end;
min:=abs(a[n,1]);
for l:=1 to n-1 do
  begin
    sum:=0;
    for i:=n-l+1 to n do
    for j:=1 to l do
    if j=i-n+l then sum:=sum+abs(a[i,j]);
    writeln('Сумма ',l,'=',sum);
    if sum<min then min:=sum;
   end;
writeln('Минимальная сумма=',min);
readln
end.

@JD Stive 2 / 2 / 1 Регистрация: 28.01.2010 Сообщений: 71
		1
	Найти такую диагональ матрицы, сумма модулей элементов которой минимальна по сравнению с другими диагоналями 01.04.2010, 21:07. Показов 1410. Ответов 1 Метки нет (Все метки) Среди диагоналей квадратной матрицы, параллельных главной и расположенных ниже нее, найти такую, сумма модулей элементов которой минимальна по сравнению с другими диагоналями. 0

	01.04.2010, 21:34

Найти такую диагональ матрицы, сумма модулей элементов которой минимальна по сравнению с другими диагоналями

Решение