Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 31.05.2012, 15:57   #1
Richik123
Форумчанин
 
Регистрация: 09.04.2012
Сообщений: 92
Репутация: -51
По умолчанию Дана квадратная матрица А порядка М. Найти сумму элементов каждой её диагонали, параллельной побочной(начиная с одноэлементной диа

Дана квадратная матрица А порядка М. Найти сумму элементов каждой её диагонали, параллельной побочной(начиная с одноэлементной диагонали А1,1).
Richik123 вне форума   Ответить с цитированием
Старый 31.05.2012, 16:15   #2
Mad_Cat
Made In USSR!
Профессионал
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,648
Репутация: 1218

icq: 723-321
skype: mad_cat1982
По умолчанию

Код:
uses crt;
var n,i,j,l,sum,min:integer;
    a:array[1..20,1..20]of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
Writeln('Ishodnaja matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end; 
For l:=1 to 2*n-1 do{количество диагоналей}
  begin
    sum:=0;
    if l<=n then{выше диагонали и она, если саму побочную не нужно, то l<n}
      begin
       for i:=1 to l do
       for j:=1 to l do
       if j=l-i+1 then sum:=sum+a[i,j];
       if sum<min then min:=sum;
      end
    else if l>n then{ниже диагонали}
      begin
       for i:=l-n+1 to n do
       for j:=l-n+1 to n do
       if j=l-i+1 then sum:=sum+a[i,j];
       if sum<min then min:=sum;
      end;
  writeln('Summa diagonali ',l,' = ',sum);
 end;
writeln;
readln
end.
(с)Puporev
__________________
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана квадратная матрица А порядка n. Найдите сумму положительных элементов матрицы, стоящих под главной диагональю (Паскаль) Вовик-вовик Помощь студентам 1 10.01.2012 21:48
Найти сумму элементов матрицы главной и побочной диагонали...(( Анастасия01 Помощь студентам 4 30.06.2011 13:52
[Pascal] найти сумму элементов лежащих ниже побочной диагонали Рамик Помощь студентам 12 28.03.2011 22:53
Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в Хутор Паскаль 2 18.12.2010 13:41
Дана квадратная матрица порядка N. Вычислить среднее арифметическое положительных элементов матрицы, Grisha248 Помощь студентам 2 22.05.2009 17:37


01:50.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru