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

@danilovalova · Регистрация: 16.03.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста)

Разработать алгоритм методом пошаговой детализации и программу решения задач, в которой найти сумму всех элементов, расположенных ниже главной диагонали матрица размером 4 на 4, состоящей из элементов целого типа. Ввод-вывод данных необходимо организовать с помощью текстовых файлов. Основные функции программы оформить в виде процедур и функций.

@Puporev · 25.03.2013, 16:35

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
32
33
34
35
36
uses crt;
const n=4;
type mtr=array[1..n,1..n] of integer;
procedure readfile(var f:text;var a:mtr);
var i,j:integer;
begin
assign(f,'1.txt');
reset(f);
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]);
close(f);
end;
function summa(a:mtr):integer;
var i,j,s:integer;
begin
s:=0;
for i:=2 to n do
for j:=1 to i-1 do
s:=s+a[i,j];
summa:=s
end;
procedure result(s:integer;var f:text);
begin
assign(f,'2.txt');
rewrite(f);
write(f,'Сумма ниже главной диагонали=',s);
close(f);
write('Результат записан в файл 2.txt')
end;
var f:text;
    a:mtr;
begin
readfile(f,a);
result(summa(a),f);
end.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@danilovalova 0 / 0 / 0 Регистрация: 16.03.2013 Сообщений: 6

	Найти сумму всех элементов матрицы, расположенных ниже главной диагонали 25.03.2013, 15:59. Показов 1985. Ответов 1 Метки нет (Все метки) Помогите пожалуйста) Разработать алгоритм методом пошаговой детализации и программу решения задач, в которой найти сумму всех элементов, расположенных ниже главной диагонали матрица размером 4 на 4, состоящей из элементов целого типа. Ввод-вывод данных необходимо организовать с помощью текстовых файлов. Основные функции программы оформить в виде процедур и функций. 0

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

Решение