Составить программу вычисления количества и суммы элементов, расположенных выше главной диагонали

@aragon74 · Регистрация: 04.10.2012

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

Дана вещественная квадратная матрица А(N,N). Составить программу вычисления количества и суммы элементов, расположенных выше главной диагонали.

@sumrak95 · 04.10.2012, 21:51

Можно пример подобной матрицы?

@SergeyS · 04.10.2012, 21:54

Pascal

Program A1;
const
  N=50;
var
  a:array[1..N,1..N] of real;
  k,i,j:integer;
  s:real;
begin
  randomize;
  for i:=1 to N do 
    for j:=1 to N do begin
      a[i,j]:=random(100);
      if i<j then begin
        s:=s+a[i,j];
        k:=k+1;
      end;
    end;
  Write('Кол-во: ',k,' Сумма: ',s);
end.

Kodzaev · 04.10.2012, 22:06

Pascal

Uses crt;
Var
  a: Array[1..10,1..10] of Real;
  i,j,n,k: Integer;
  s: Real;
BEGIN
Randomize;
Writeln('Введите размер матрицы: '); Readln(n);
Writeln('Случайная матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    a[i,j]:=10*Random;
    Write(a[i,j]:8:3);
  end;
  Writeln
end;
For i:=1 to n-1 do
For j:=i+1 to n do
begin
  s:=s+a[i,j];
  Inc(k);
end;
Writeln('Сумма элементов выше главной диагонали: ',s:6:3);
Writeln('Кол-во: ',k);
Readln
END.

@aragon74 0 / 0 / 0 Регистрация: 04.10.2012 Сообщений: 17
		1
	Составить программу вычисления количества и суммы элементов, расположенных выше главной диагонали 04.10.2012, 21:21. Показов 4773. Ответов 3 Метки нет (Все метки) Дана вещественная квадратная матрица А(N,N). Составить программу вычисления количества и суммы элементов, расположенных выше главной диагонали. 0

@sumrak95 Избранный 83 / 83 / 42 Регистрация: 08.06.2012 Сообщений: 174
	04.10.2012, 21:51	2
	Можно пример подобной матрицы? 0

Опции темы