Матрицы

@Vetaliuy · Регистрация: 24.04.2011

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

Задана вещественная квадратная матрица A = { a(ij) }, i, j = 1 ¸ n. Соста-вить программу вычисления суммы элементов матрицы A, расположенных в строках с отрицательным элементом на главной диагонали.

@Romalei · 19.02.2014, 19:24

Pascal

uses crt;
var
a:array [1..25,1..25] of real;
sum:real;
i,j,n:integer;
BEGIN
write('Ðàçìåðíîñòü-->'); readln(n);
for i:=1 to n do
 begin
     for j:=1 to n do
      begin
          a[i,j]:=random(19)-9;
          write(a[i,j]:6:1);
      end;
     writeln;
 end;
sum:=0;
for i:=1 to n do
 if (a[i,i]<0) then
  for j:=1 to n do
   sum:=sum+a[i,j];
writeln('Sum=',sum);
END.

@Vetaliuy 1 / 1 / 0 Регистрация: 24.04.2011 Сообщений: 24
		1
	Матрицы 19.02.2014, 19:15. Показов 895. Ответов 1 Метки нет (Все метки) Задана вещественная квадратная матрица A = { a(ij) }, i, j = 1 ¸ n. Соста-вить программу вычисления суммы элементов матрицы A, расположенных в строках с отрицательным элементом на главной диагонали. 0

	19.02.2014, 19:24

Матрицы

Решение