Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите плиииз!!
Для заданной целочисленной матрицы Н найти минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали. Исходную матрицу вывести в общепринятом виде. Полученные суммы и результат вывести в произвольной форме.

не находит минимум среди сумм модулей элементов диагоналей,помогите сделать:)

program matriza;
type
matrix= array [1..10, 1..10] of integer;
mat=array [1..2*10-1] of integer;
var
f,f1 : matrix;
b:mat;
i, j,n,m: byte;
k,l:integer;
begin
k:=0;
l:=0;
Writeln ('размерность матрицы:');
Readln(N,m);
Writeln ('введите элементы матрицы:');
for i :=1 to n do
for j :=1 to m do
readln ( f [ i , j ]);
for i := 1 to n do
f1:=f;
for i:=1 to n do
for j:=1 to m do
begin
for i:=1 to n do
for j:=1 to m do
b[i+j-1]:=b[i+j-1]+abs(f[i,j]);
k:=b[1];
for i:=1 to n do
for j:=1 to m do
writeln('модули:','',abs(f[i,j]));
for i:= 2 to 2*n-1 do
if b[i]<k then k:=b[i];
writeln('минимум сумм:','',k);
end;
writeln('исходная матрица:');
for i := 1 to n do
begin
for j := 1 to m do write(f1[i, j]:5);
writeln;
end;
end.

Добавлено (09.01.12, 16:33)
---------------------------------------------
за деньги поможет кто??срочно нужно!!

1 | Автор: bend | 2012-01-09, 16:33   |  Репутация: [ + 0 ]
Сколько денег?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-01-11, 00:22   |  Репутация: [ + 211 ]
какая твоя цена? я не в курсе цен)
3 | Автор: bend | 2012-01-13, 20:35   |  Репутация: [ + 0 ]
Для начала: сколько ты готов выложить?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-01-13, 21:28   |  Репутация: [ + 211 ]
просто говори скока берешь за задачу)но мне надо что все по заданию работало...в точности)
5 | Автор: bend | 2012-01-17, 10:56   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: