Двумерная матрица: найти минимальную сумму из чисел стоящих на диагоналях параллельных побочной - Pascal

  1. Дано A(6.6) Двумерная матрица из этой матрицы надо найти минимальную сумму параллельным побочной диагонали.Добавлено через 2 минуты


textual

Код к задаче: «Двумерная матрица: найти минимальную сумму из чисел стоящих на диагоналях параллельных побочной - Pascal»

uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,k,z,sm,mn:integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for z:=n-1 downto -n+1 do//все диагонали, удаленные от побочной на z
 begin
  sm:=0;
  for j:=1 to n do
  if (j-z>0) and (j-z<=n) then
  sm:=sm+a[j-z,n-j+1];
  writeln('Сумма ',n-z,' = ',sm);
  if j-z=1 then mn:=sm
  else if sm<mn then mn:=sm;
 end;
writeln('Минимальная сумма на диагоналях, параллельных побочной=',mn)
end.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.000 из 5



Похожие ответы
  1. Есть двумерный массив, записанный в файле как матрица размерности 12*4. Необходимо считать ее, произвести определенные действия и записть результат в другой файл. Получившийся на выходе массив так же надо представить в виде матрицы. Вот с первым и последним у меня загвоздка. Программа отказывает считывать данные из файла, равно как и заносить их в файл. Если натолкнете на путь решения, буду благодарен.

  1. Помогите пожалуйста решить задачу В матрице A=(a[i,j] (i,j=1,2,...,n) каждый элемент равен 1,2,3 или 4. Подсчитайте количество четверок a[i,j],a[i,j+1],a[i+1,j],a[i+1,j+1], в каждой из которых все элементы различны; n=6

  1. Найти сумму среднее геометрическое элементов главной диагонали и минимальное отрицательное побочной дигонали матрицы x(5,5).

  1. Задана матрица размерности M×N. Среди элементов каждой строки, отличных от заданного В, найти наибольший элемент и его номер. Число В вводится с клавиатуры

  1. Как заполнить квадратную матрицу, таким способом (дана при n = 5):Oracle 11 SQL1 2 3 4 5 9 10 11 12 13 8 21 22 23 14 7 20 25 24 15 6 19 18 17 16 5  4 3  2  1

  1. Дaна матрица N*M, элементами которой являются целые числа и номер столбца К. Сдвинуть все столбцы с K-го по M-ый на один влево.

  1. Сабж Дана действительная матрица размера n*m. Получить последователь- ность b[1],...,b[n], где b[к] - это сумма наибольшего и наимень- шего из значений элементов К-й строки.

  1. Добрый вечер помогите написать программку: Hайти среднее аpифметическое положительных элементов каждого столбца матpицы x(10х20) при условии, что в каждом столбце есть хотя бы один положительный элемент. Заранее спс за помощь