определите значеиие переменной k после выполнения следующего фрагмента программы

Информатика информа́тика  (фр.  informatique;   .  computer science) —  наука  о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки  информации  с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений[1]. информатика включает дисциплины, относящиеся к обработке информации в  вычислительных машинах  и  вычислительных сетях: как  абстрактные, вроде анализа  алгоритмов, так и конкретные, например разработка  языков программирования  и  протоколов передачи данных.

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