С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Aleshh
0 / 0 / 0
Регистрация: 15.01.2017
Сообщений: 84
1

Найти сумму элементов на главной и побочной диагонали матрицы

25.04.2017, 22:42. Просмотров 824. Ответов 1
Метки нет (Все метки)

Найти сумму элементов на главной и побочной диагонали (общий элемент дважды не
складывать)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2017, 22:42
Ответы с готовыми решениями:

Найти сумму элементов главной и побочной диагонали матрицы
Дана квадратная матрица порядка M. Найти сумму элементов ее главной и |побочной диагонали. А также...

Найти сумму элементов ее главной (побочной) диагонали матрицы
Задача № 12.Блок схема к данной задаче. Дана квадратная матрица порядка M. Найти сумму элементов...

Найти сумму элементов главной (побочной) диагонали матрицы
Блок схема к данной задаче. Дана квадратная матрица порядка M. Найти сумму элементов ее главной...

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

В квадратной матрице найти сумму элементов главной и побочной диагонали
в квадратной матрице порядка С найти сумму элементов главной и побочной диагонали.

1
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
26.04.2017, 01:07 2
Лучший ответ Сообщение было отмечено Aleshh как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  a: array[1..100, 1..100] of integer;
  n, i, j: byte;  sum: integer;
begin
  randomize;sum := 0;
  write('n = ');readln(n);
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      a[i, j] := random(51);
      write(a[i, j]:4, ' ');
      if (i = j) or (i = n - j + 1) then
        sum := sum + a[i, j];
    end;
    writeln;
  end;
  if n mod 2 <> 0 then
    sum := sum - a[n div 2, n div 2];
  writeln('Sum = ', sum);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2017, 01:07

Найти сумму элементов побочной диагонали матрицы
Помогите пожалуйста, срочно! Ввести матрицу A(n,n) целого типа. Найти сумму элементов побочной...

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

Найти сумму элементов главной и побочной диагоналей матрицы
Написать программу для решения следующей задачи: в квадратной матрице порядка М найти сумму...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru