Выберите путь для установкиКаталог:C:\Program Files\Epic GamesПуть: C:\Program Files\Epic Games\FortniteКаталог должен быть пустым.Из-за внешних настроек невозможно изменить путь для установки. Чтобывыбрать другой путь для установки, удалите настройку по умолчанию изаново откройте программу запуска.​

#include <iostream>
using namespace std;
int main()
{
    int n, k;
    cout <<"n = ", cin >> n;
    cout <<"k = ", cin >> k;
    int A[n][k], D[k];
    cout <<"A("<<n<<","<<k<<"):\n";
    for(int i = 0; i < n; i++)
        for(int j = 0; j < k; j++)
            cin >> A[i][j];
    cout <<"\nD("<<k<<"): ";
    for(int i = 0; i < k; i++)
        cin >> D[i];
    int b;
    for(int i = 0; i < n; i++)
    {
        b = 1;
        for(int j = 0; j < k; j++)
            if (D[j] != A[i][j]) b = 0;
        if (b > 0) cout <<i<<" ";
    }
    return 0;
}

{$APPTYPE CONSOLE}
Type
   Mass = array of array of integer;
Procedure KP(Var A:Mass; N:integer);
Var i,j,k:integer;
Begin
k:=0;
For j:= 0 to N-1 do
    if j mod 2 = 0 then
       For i:= 0 to N-1 do
           if A[i,j] > 0 then k:=k+1;
WriteLn('k = ',k)
End;

Procedure RND(Var A:Mass; N:integer);
Var i,j:integer;
Begin
Randomize;
SetLength(A,N,N);
For i:= 0 to N-1 do
    Begin
    For j:= 0 to N-1 do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
End;
Var
   A,B:Mass;
   N,M:integer;
Begin
Write('N = ');ReadLn(N);
WriteLn('A(',N,',',N,'):');
RND(A,N);
KP(A,N);
Write('M = ');ReadLn(M);
WriteLn('B(',M,',',M,'):');
RND(B,M);
KP(B,M);
ReadLn
End.