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

@Лил · Регистрация: 09.04.2012

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

2.дана квадратичная матрица X(m,n) (m=4,n=4). вычислить сумму положительных элементов главной диагонали.
Повторите запуск программы сформировав элементы матрицы с помощью генератора случайных чисел в диапазоне от [-15;15]. Элементы вывести на экран в виде матрицы.

@ermolay · 02.06.2012, 17:21

Pascal

const
  n=4;
var 
  a: array[1..n,1..n] of integer;
  i,j,sum: integer;
begin
  randomize;
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:5);
    end;
    writeln;
  end;
  writeln;
  
  sum:=0;
  for i:=1 to n do
    for j:=1 to n do
      if (i=j)and(a[i,j]>0)
        then sum:=sum+a[i,j];
  writeln('Сумма положительных элементов главной диагонали = ',sum);
  readln;
end.

@Лил 1 / 1 / 0 Регистрация: 09.04.2012 Сообщений: 17
		1
	Дана квадратичная матрица. вычислить сумму положительных элементов главной диагонали 02.06.2012, 15:10. Показов 3996. Ответов 1 Метки нет (Все метки) 2.дана квадратичная матрица X(m,n) (m=4,n=4). вычислить сумму положительных элементов главной диагонали. Повторите запуск программы сформировав элементы матрицы с помощью генератора случайных чисел в диапазоне от [-15;15]. Элементы вывести на экран в виде матрицы. 0

	02.06.2012, 17:21

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

Решение