Вязыке c написать программу:
использование оператора выбора case.
с 1 января 1990 года по некоторый день месяцев и n дней, определить название текущего месяца.

Const
  m=5;
  n=7;
var
  a:array[1..m,1..n] of integer;
  i,j,amax:integer;
  p:real;
begin
  Randomize;
  Writeln('Исходный массивэ');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(90)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  {Задача 1}
  amax:=a[1,1];
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j]>amax then amax:=a[i,j];
  Writeln('Максимальный элемент равен ',amax);
  {Задача 2}
  p:=1;
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j] mod 2=0 then p:=p*a[i,j];
  Writeln('Произведение четных элементов равно ',p);
end.

Пример работы
Исходный массивэ
 94 20 49 80 70 55 40
 62 74 71 51 88 10 76
 68 11 11 74 96 50 69
 98 34 25 93 52 53 61
 68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33

Const
  m=10;
  n=8;
var
  a:array[1..m,1..n] of integer;
  i,j:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(20)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  Writeln('Результирующий массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
      else a[i,j]:=3*a[i,j];
      Write(a[i,j]:3)
      end;
    Writeln
    end
end.

Пример решения
Исходный массив
 12 10 12 20 17 17 28 23
 22 27 28 14 23 10 26 15
 29 13 10 29 26 11 17 24
 10 14 17 24 16 12 22 28
 17 25 26 24 25 22 17 23
 18 11 20 12 28 29 25 13
 26 11 28 19 17 27 22 10
 22 17 20 12 10 13 17 19
 14 10 27 28 13 11 20 16
 26 16 21 24 20 15 26 10
Результирующий массив
 36 20 36 40 51 51 84 69
 66 81 84 42 69 20 78 30
 87 39 20 87 78 33 51 72
 20 42 51 72 48 36 66 84
 51 50 78 72 50 66 51 69
 54 33 40 36 84 87 50 39
 78 33 84 57 51 81 66 20
 66 51 40 36 20 39 51 57
 42 20 81 84 39 33 40 48
 78 48 63 72 40 30 78 20