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

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

textual

Код:

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.

Похожие ответы
  1. POMOGITE OTSORTIROVAT DVYXMERNI MASSIV V PORIADKE VOZRASTANIA 4ISEL

  1. Привет всем! Я студент 1-го курса радиотехнической специальности , что не связанно с программированием и ясное дело я в нём не селен , информатика идёт у меня как общеобразовательный предмет на пол семестра.И поэтому прошу помощи у тех кто в программировании в Pascal разбирается.Помогите пожалуйста в создании программки по таким задачкам : 1.Дано три стороны треугольника a , b , c . Нужно найти сумму синусов углов треугольника. ( формула : sin(x+y)=sinx*cosy + cosx*siny ) Предвидеть введение значений a,b,c с клавиатуры и вывод результатов на экран. 2.Дано четыре числа.Определить , сколько из них имеют знак минус. 3.Дано последованость с нулей и единиц .Определить , количество каких цифр раньше достигнет 10. Вроде бы задачки не занимают много времени , но это не мой профиль) помогите пожалуйста. Буду премного благодарен. ( если эти задачки особого труда не занимают там ещё несколько есть могу выложить если сможете помочь)

  1. Помогите пожалуйста решить задачки на массив в паскале : 6-Выясните,является ли предложенный двумерный массив размером N*N магическим квадратом,т.е. массивом,суммы элементов которого по столбцам,по строкам и по обеим диагоналям равны. помогите пожалуста я новичёк пишите всю программу ..........заранее благодарю...........

  1. Формyлы в докyменте Ворд. Спс заранее.

  1. 1) Вводится число, (32-битное) порядковый номер бита в числе , и бит (0 или1) нужно заменить бит, номер которого мы введем на бит, который мы введем. Вывести новое число. 2) Вводится 32-битное число, и номер тетрады (4 бита) которые нужно вывести. Вообщем там получается всего 8 тетрад соответственно вводим мы число 5 и он выводит четыре бита пятой тетрады! Буду очень благодарна!

  1. Напишите пожалуйста,что делает каждая строка этого кода. Немного не понимаю.

  1. • Занесите в текстовый файл 10 целых чисел. • Перенесите эти числа в типизированный файл. • Найдите количество нечетных компонент типизированного файла. Дополнительный массив не использовать. • Запишите значение количества в файл вместо компоненты с номером 3. Выведите на экран измененное содержимое файла

  1. Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю. Ввод, вывод матрицы и вычисление суммы оформить в виде отдельных процедур. Программа не работает, пожалуйста помогите найти ошибку, очень срочно

  1. Задание: "Найти в двумерном массиве 5*6 случайных чисел сумму элементов каждого столбца, и после столбца с максимальной суммой вставить столбец из нулей" Помогите пожалуйста. Завтра уже надо сдавать.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика