Напечатать квадрат той из матриц, в которой наименьший след

@CTenJlep · Регистрация: 17.05.2011

Даны две квадратные вещественные матрицы. Напечатать квадрат той из них, в которой наименьший след (сумма диагональных элементов), считая, что такая матрица одна

Помогите решить

@Omlette · 18.05.2011, 00:21

Pascal

var a,b:array [1..10,1..10] of real; i,j,n:integer; s:real;
begin
 writeln('Ââåäèòå ðàçìåðíîñòü ìàòðèö ');
 readln(n);
 writeln('Ââåäèòå ïåðâóþ ìàòðèöó ');
 for i:=1 to n do
  for j:=1 to n do
   readln(a[i,j]);
 writeln('Ââåäèòå âòîðóþ ìàòðèöó');
 for i:=1 to n do
  for j:=1 to n do
   readln(b[i,j]);
 s:=0;
 for i:=1 to n do s:=s+a[i,i];
 for i:=1 to n do s:=s-b[i,i];
 if s<=0 then
  begin
   for i:=1 to n do
    begin
     for j:=1 to n do write(a[i,j]:6:2);
     writeln;
    end;
   end
  else begin
    for i:=1 to n do
    begin
     for j:=1 to n do write(b[i,j]:6:2);
     writeln;
    end;
   end;
end.

При условии, что размерность матриц одинакова)

@CTenJlep · 18.05.2011, 00:45 **[ТС]**

Красава)СПС

@CTenJlep 0 / 0 / 0 Регистрация: 17.05.2011 Сообщений: 14
		1
	Напечатать квадрат той из матриц, в которой наименьший след 17.05.2011, 23:35. Показов 1263. Ответов 2 Метки нет (Все метки) Даны две квадратные вещественные матрицы. Напечатать квадрат той из них, в которой наименьший след (сумма диагональных элементов), считая, что такая матрица одна Помогите решить __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@CTenJlep 0 / 0 / 0 Регистрация: 17.05.2011 Сообщений: 14
	18.05.2011, 00:45 [ТС]	3
	Красава)СПС 0

Опции темы

Напечатать квадрат той из матриц, в которой наименьший след

Решение