Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 29.01.2017
Сообщений: 13
1

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

29.01.2017, 12:53. Показов 2410. Ответов 2
Метки нет (Все метки)

Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали
матрицы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2017, 12:53
Ответы с готовыми решениями:

Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы
Ребят, помогите, пожалуйста. Дана действительная матрица размерности (n*n). Найти минимум среди...

Найти максимум среди сумм элементов диагоналей, параллельных главной диагонали
С Информатикой туго Вариант 23 Дня заданной целочисленной матрицы С найти максимум среди сумм...

Определить минимум среди сумм элементов диагоналей, параллельных побочной диагонали матрицы
Дана целочисленная квадратная матрица. Определить минимум среди сумм элементов диагоналей,...

Найти максимум среди сумм элементов диагоналей, параллельных побочной диагонали.
Ввести целочисленную квадратную матрицу, найти максимум среди сумм элементов диагоналей,...

2
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
29.01.2017, 14:05 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    n,z,i,j,sm,mn:integer;
begin
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Матрица');
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;
mn:=a[1,1];
writeln('Диагонали, параллельные главной');
for i:=-n+1 to n-1 do
 begin
  sm:=0;
  for j:=1 to n do
  if (j+i>0) and (j+i<=n) then sm:=sm+a[j+i,j];
  writeln('Сумма диагонали ',i+n,'=',sm);
  if sm<mn then mn:=sm;
 end;
writeln('Минимальная сумма=',mn)
end.
1
0 / 0 / 0
Регистрация: 29.01.2017
Сообщений: 13
29.01.2017, 15:27  [ТС] 3
Большое спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.01.2017, 15:27

Найти максимум среди сумм элементов диагоналей матрицы, которые параллельны главной диагонали
Для данной квадратной целочисленной матрицы найти максимум среди сумм элементов диагоналей,...

Минимум среди сумм модулей элементов главной и побочной диагоналей
Дана целочисленная квадратная матрица. Определить: 1) сумму элементов в тех столбцах, которые...

Найти минимум среди элементов главной диагонали матрицы
Дана целочисленная квадратная матрица. Составить программу, находящую минимум среди элементов...

Для матрицы найти минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали
Для заданной целочисленной матрицы найти минимум среди сумм модулей элементов диагоналей,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru