Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
adams1995
0 / 0 / 0
Регистрация: 08.02.2014
Сообщений: 20
#1

Вычислить сумму элементов массива, расположенных ниже главной диагонали - PascalABC.NET

10.06.2014, 01:16. Просмотров 332. Ответов 1
Метки нет (Все метки)

В текстовом файле дан двухмерный массив целых чисел. Вычислить сумму элементов массива, расположенных ниже главной диагонали.
Входные данные:
В текстовом файле в первой строке задано целое число N (0 < N <= 100) - размерность массива A (N - число строк и число столбцов).
В последующих N строках записано по N целых чисел - элементы массива. Значения элементов массива по модулю не превышают 32000.

Выходные данные:
Создать текстовый файл, содержащий единственное целое число.

Пример входного файла (input.txt):
5
1 2 3 4 3
4 3 2 1 4
5 6 7 8 5
1 2 3 4 6
5 6 7 3 7
Пример выходного файла (output.txt):
42
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2014, 01:16
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычислить сумму элементов массива, расположенных ниже главной диагонали (PascalABC.NET):

В матрице найти сумму положительных элементов, расположенных на главной диагонали и ниже ее - PascalABC.NET
9. В матрице С(5, 5) найти сумму положительных элементов, расположенных на главной диагонали и ниже ее, а из отрицательных элементов,...

Сгладить матрицу, после чего найти сумму модулей элементов, расположенных ниже главной диагонали - PascalABC.NET
Соседями элемента Aij в матрице назовем элементы Аkl, где i - 1 &lt; k &lt; i + 1 , j - 1 &lt; l &lt;j + 1, (k, l) Операция сглаживания матрицы дает...

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

Процедура: обнуление элементов матрицы, расположенных ниже главной диагонали - PascalABC.NET
Написать процедуру обнуления элементов матрицы, расположенных ниже главной диагонали. Применить процедуру для матриц A и B. Я не особо...

Вычислить сумму элементов массива, расположенных над главной диагональю - PascalABC.NET
Дан двумерный массив размера n x n, элементами которого являются числа 0 и 1. Вычислить сумму элементов этого массива, расположенных: а)...

Программа, которая среди элементов расположенных ниже главной диагонали находит минимальный элемент - PascalABC.NET
Дан двумерный целочисленный массив из n строк и m столбцов. Написать программу, которая среди элементов расположенных ниже главной...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3642 / 2629 / 1797
Регистрация: 05.06.2014
Сообщений: 12,567
11.06.2014, 09:08 #2
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
37
38
39
40
41
42
43
Const
  m_max=100;
  n_max=100;
VaR
  a1:aRRaY[1..m_max,1..n_max] of integer;
  f,g:text;
  i,j:Integer;
  m0,n0,sum:integer;
bEGIN
 
 
  assign(f,'input.txt');
  reset(f);
  readln(f,m0);
  n0:=m0;
  For i:=1 to m0 do
    For j:=1 to n0 do
      read(f,a1[i,j]);
 
  close(f);
  Writeln('Исходный массив:');
  For i:=1 to m0 do
    begin
      For j:=1 to n0 do
        Write(a1[i,j]:4);
      WriteLn;
    end;
 
  sum:=0;
  For i:=2 to m0 do
    begin
      For j:=1 to i-1 do
        sum:=sum+ a1[i,j];
    end;
 
 
  assign(g,'output.txt');
  rewrite(g);
 WriteLn(g,sum);;
 close(g);
 ReadLn;
 
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 09:08
Привет! Вот еще темы с ответами:

Рассчитать сумму элементов матрицы ниже главной диагонали - PascalABC.NET
Рассчитать суму элементов матрицы A ниже главной диагонали A=\left( \begin{array}{rrrr}-1.5&amp;-2.5&amp;4.5&amp;\...

Подпрограммы: найти сумму четных элементов, расположенных на главной диагонали матрицы - PascalABC.NET
с помощью подпрограмм,найти сумму четеых элементов ,распложенных на главной диагонали массивов А(6,6),В(6,6),С(6,6).

Вычислить произведение положительных элементов матрицы, расположенных на главной диагонали и выше ее - PascalABC.NET
Вычислить произведение положительных элементов матрицы, расположенных на главной диагонали и выше ее. Закрасить указанные элементы. ...

Вычислить сумму положительных элементов, лежащих ниже побочной диагонали - PascalABC.NET
uses crt; var a:array of integer; n,i,j,s:integer; begin clrscr; randomize; repeat write('Размер матрицы до ',nmax,' n='); ...


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

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

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