СОР Раздел 8.3А «Интегрированные среды разработки программ»

Pascal

const

 nmax = 100;

var

 A: array[1..nmax, 1..nmax] of real;

 i, j, n, count: byte;

begin

 Writeln('Введите N');

 Readln(n);

 Writeln('Исходная матрица');

 count:=0;

 for i := 1 to N do

 begin

   for j := 1 to N do

   begin

     a[i, j] := (Sin(Sqr(i) - Sqr(j)) / N);

     write(A[i, j]:10:3);

     if a[i,j]> 0 then Inc(count);

   end;

   writeln;

 end;

 Writeln('Количество положительных элементов: ', count);

end.

Тестовое решение

Введите N

5

Исходная матрица

    0.000    -0.028    -0.198    -0.130     0.181

    0.028     0.000     0.192     0.107    -0.167

    0.198    -0.192     0.000    -0.131     0.058

    0.130    -0.107     0.131     0.000    -0.082

   -0.181     0.167    -0.058     0.082     0.000

Количество положительных элементов: 10