Вычислить сумму элементов выше главной диагонали матрицы

@qw123456 · Регистрация: 18.12.2014

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

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

@CodeR · 23.02.2015, 07:31

Pascal

Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,n:integer;
    s:integer;
Begin
    Randomize;
    Repeat
     write('Введите размерность матрицы: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    s:=0;
    For i:=1 to n-1 do
     For j:=i+1 to n do
      s:=s+A[i,j];
    writeln('Сумма элементов выше главной диагонали матрицы = ',s);
End.

@qw123456 2 / 2 / 1 Регистрация: 18.12.2014 Сообщений: 112
		1
	Вычислить сумму элементов выше главной диагонали матрицы 22.02.2015, 18:51. Показов 3305. Ответов 1 Метки нет (Все метки) Написать блок-схему алгоритма и программу на одном из алгоритмических языков, которая вычисляет сумму элементов выше главной диагонали матрицы. Помогите пожалуйста решить. Только начинаю изучать программирование 0

	23.02.2015, 07:31

Вычислить сумму элементов выше главной диагонали матрицы

Решение