Question

Вычислить сумму квадратов элементов, больших заданного С и находящихся на главной диагонали и ниже ее.(ПАСКАЛЬ) срочно выручайте

Answer 1

Ответ:

program N64568360;  

var a:array[1..10, 1..10] of shortint;  

   n, i, j:byte;  

   s:shortint;  

begin  

 randomize;  

 n := random(8) + 3;  

 writeln('Заданная матрица, порядкa ',n,':');  

 for i := 1 to n do  

 begin  

   for j := 1 to n do  

   begin  

     a[ i, j ] := random(21) - 10;  

     write(a[ i, j ]:4)  

   end;  

   writeln  

 end;  

 s := 0;  

 for i := 1 to n do  

   s := s + a[ i, i ];  

 writeln('Сумма элементов главной диагонали: ',s);  

 readln  

end.

Объяснение: