Водной группе в летнем оздоровительном лагере оказались пятиклассники аня, боря, гриша и дина. у каждого из них есть одно из следующих увлечений: рисование, танцы, пение, туризм , футбол. певица решила подружиться с туристкой. дина удивилась, узнав, что художник и туристка - брат и сестра. гриша дружит с художником и танцором. у васи нет сестёр. назовите увлечения каждого из .

Аня-туристка боря-художник гриша-футбол дина-певица вася-танцор

Const     n = 3; var     a: array[1..n,1..n] of integer;     i,j,k: integer; begin randomize; writeln('исходный массив a(',n,',',n,'): '); k: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(50);               write(a[i,j]: 4);               if (j> i)and(a[i,j] mod 2 = 0) then k: =k+1;               end;       writeln;       end; writeln('k = ',k); end.

Var       a: array [,] of integer; begin       var n : = readlninteger('n = ');       var m : = readlninteger('m = ');       var rand : = readlninteger('для ручного ввода нажмите 0');             if rand = 0 then begin               a : = new integer[m, n];               for var i : = 0 to m-1 do                       for var j : = 0 to n-1 do                               a[i, j] : = readlninteger('a[' + i + ',' + j + '] = ');       end       else a : = matrixrandom(m, n, 1, 100);       println(a);             var b : = arrgen(n, x -> 1);       for var i : = 0 to m-1 do               for var j : = 0 to n-1 do                       if j mod 2 = 0 then                               b[j] : = b[j] * a[i, j];             b.where((x, i)-> i mod 2 = 0).(); end.