Делайте №11 и №15 в word и пришлите файлом вот ссылка на :

Using System;

public class Solution
{
public static void main(String[] args)
{
int n = int.Parse(Console.ReadLine());
int[] a = new int[n];
int sumch = 0;
int sumnech = 0;
int sumthree = 0;
for(int i = 0; i < n; i++)
{
a[i] = int.Parse(Console.ReadLine());
if (a[i] % 2 == 0) sumch =+ a[i];
if (a[i] % 2 != 0) sumnech =+ a[i];
if (a[i] % 3 == 0) sumthree =+ a[i];
}
Console.WriteLine("Сумма четных элементов массива: " + sumch);
Console.WriteLine("Сумма нечетных элементов массива: " + sumnech);
Console.WriteLine("Сумма элементов массива, кратных трем: " + sumthree);
}
}

1. Типовое "школьное" решение

const
  nn=20; { указать максимально возможный размер }
var
  a:array[1..nn,1..nn] of integer;
  n,i,j,mx,k:integer;
begin
  Randomize;
  Write('n='); Read(n);
  mx:=-20; { меньше минимально возможного }
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(21)-10;
      Write(a[i,j]:4);
      if a[i,j]>mx then begin mx:=a[i,j]; k:=1 end
      else
        if a[i,j]=mx then Inc(k)
      end;
    Writeln;
  end;
  Writeln('Максимальное значение ',mx,' встречается ',k,' раз(а)')
end.

Пример работы программы
n=10
   3  -1  -6  10  -9  -8  -7   1   2  -9
   0   6  -1  -2   2   7   3  -5  -2   6
   6   0  -3   0  -6   1   9   9  -6 -10
  -3   7  -3  -4 -10   6  -8  -9 -10  -3
  -1  -1   1   0   1   8  -8   6   7  -5
  -1   1   0  -4  -9  -8  -9   4   5   0
  -6  -5  -4   2   5   3  -2  -8  -3   6
   5   1  -6 -10  -4  -3  10   7  10  -4
  -1  -7  -9  10   2   7  -3  -9  -6   8
   4  -2  -4   1  -7  -7  -8  10   6   8
Максимальное значение 10 встречается 5 раз(а)

2. Решение на основе базовых возможностей PascalABC.Net 3.2

var
  a:array[,] of integer;
begin
  Randomize;
  var n:=ReadInteger('n=');
  SetLength(a,n,n);
  var mx:=-20; // меньше минимально возможного
  var k:integer;
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do begin
      a[i,j]:=Random(-10,10);
      Write(a[i,j]:4);
      if a[i,j]>mx then begin mx:=a[i,j]; k:=1 end
      else
        if a[i,j]=mx then Inc(k)
      end;
    Writeln;
  end;
  Writeln('Максимальное значение ',mx,' встречается ',k,' раз(а)')
end.

Пример работы программы
n= 10
   0   2   2 -10  -5  -4   8   6  -8  -1
  -4   5   9   3  -4  -8   6 -10   8  -3
   5   5  -2  -8   6  -7  -9   5 -10   2
   1  -7  -7  -3   0 -10   4   1   6  -1
  -2   2  -8   3   0   3   9   5  -1  -8
  10   8   3   1  10   5  -7   0  -6  -9
  -6  -7   5   0   8  -8   2   2  -8  -4
  -2  -5  -6  -1  10  -7   2   5   2  -7
  -6  -3  -5   9   3   3   0   2  -2   5
   7  -7  -4   5  -6  -6   7   2   6  -3
Максимальное значение 10 встречается 3 раз(а)