Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.11.2016, 16:57   #1
АсяЯ
 
Регистрация: 05.11.2016
Сообщений: 4
По умолчанию Модифицировать программу так, чтобы она осуществляла поиск подматрицы n,в которой сумма элементов главной диагонали наибольшая

Модифицировать программу так, чтобы она осуществляла поиск подматрицы n,в которой сумма элементов главной диагонали наибольшая
Код:
writeln('Введите размер подматрицы:');readln(m); 
randomize; 
for i:=1 to n do 
for j:=1 to n do 
a[i,j]:=trunc(random*50) ; 
writeln('Сформированная матрица'); 
for i:= 1 to n do 
begin 
for j:=1 to n do 
write(a[i,j],' '); 
writeln; 
end; 
for i:=1 to m do 
for j:=1 to m do 
if i=j then s:=s+a[i,j]; 
for l:=1 to n-m+1 do 
for k:=1 to n-m+1 do 
begin 
for i:=1 to m do 
for j:=1 to m do 
b[i,j]:=a[l+i-1,k+j-1]; 
s:=0; 
for i:=1 to m do 
for j:=1 to m do 
if i=j then s:=s+b[i,j]; 
if s>max then 
begin 
end; 
end; 
writeln('Сумма элементов=',s); 
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

Последний раз редактировалось Вадим Мошев; 05.11.2016 в 21:15.
АсяЯ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! VisTBacK Помощь студентам 6 19.09.2008 13:44