Установите соответствие между определением и
понятием.
Понятия
ссылка
Оглавление
Сноска
гиперссылка​

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

#include <iostream>

int main()  

{

   int A[16];

   int i, k;

   // Русский язык в консоли

   setlocale(LC_ALL, "Russian");

   for (i = 0; i < 16; i++)

   {

       std::cout << "Введите число " << i + 1 << ": ";

       std::cin >> A[i];

   }

   std::cout << "Введите номер элемента массива k: "<< std::endl;

   std::cin >> k;

   if (A[k-1]%2==0) std::cout << "Элемента массива с номером " << k << " четный." << std::endl;

   else std::cout << "Элемента массива с номером " << k << " нечетный." << std::endl;

   return 0;

}