С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
dimich05
Заблокирован
1

В матрице найти суммы элементов над, под и на главной диагонали

16.10.2014, 14:13. Просмотров 1109. Ответов 1
Метки нет (Все метки)

1)Ввести матрицу А[5x5]
2)Заполнить датчиком случайных чисел
3)Найти сумму элементов :
а)на главной диагонали
б)Под главной диагональю
в)Над главной диагональю
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2014, 14:13
Ответы с готовыми решениями:

Деление суммы элементов квадратной матрицы над главной диагональю на сумму элементов под побочной
Здравствуйте!!! Очень нуждаюсь в Вашей помощи. нужно написать универсальную...

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

Массивы. сумма элементов над (под) главной и над (под) побочной диагоналями
Дана матрица А(n,n). Найти сумму элементов над (под) главной и над (под)...

В матрице найти сумму и произведение элементов главной диагонали
В матрице найти сумму и произведение элементов главной диагонали.Умножить...

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

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
16.10.2014, 14:32 2
Лучший ответ Сообщение было отмечено dimich05 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const n=5;
var a:array[1..n,1..n] of integer;
    sn,sp,sd:integer;
    i,j:integer;
begin
    randomize;
    sn:=0;sp:=0;sd:=0;
    for i:=1 to n do
     begin
      for j:=1 to n do
       begin
        a[i,j]:=-5+random(11);
        if (i>j) then sp:=sp+a[i,j]
                 else
                  if i=j then sd:=sd+a[i,j]
                         else sn:=sn+a[i,j];
        write(a[i,j]:3)
       end;
      writeln
     end;
    writeln('sd=',sd,' spod=',sp,' snad=',sn);
    readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2014, 14:32

В сглаженной матрице найти сумму модулей элементов, расположенных ниже главной диагонали
Соседями элемента в матрице назовем элементы . Операция сглаживания матрицы...

Найти кол-во отрицательных элементов главной диагонали,целиком делящихся на 3 в целочисленной матрице A(3,3)
Помогите пожалуйста;)

Двумерный массив. Найти количество положительных элементов над главной диагональю и под ней
Заполнить двумерный числовой массив R целыми числами. Найти количество...


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

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

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