В массиве В размером 7, заполненном с клавиатуры различными числами найти минимальный элемент и его адрес. Найти сумму отрицательных четных элементов. C#

Var
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...

Вы меня простите, но на 2 рисунок у меня не осталось времени но я думаю что лучше хоть что то чем ничего.

И ещё 1 нюанс. Я немного не посмотрел на координаты.

Объяснение:

uses drawman;

var i:integer;

procedure figura;

begin

 OnVector(1,1);

 PenDown;

 OnVector(8,0); onvector(0,2); onvector(-2,0); OnVector(0,-2);

 OnVector(0,5); OnVector(-2,0);

 OnVector(0,-5); OnVector(0,8);

 

 onvector(-2,0);

 

 onvector(0,-8);

 onvector(0,11);

 onvector(-2,0);

  onvector(0,-11);

 

 

 PenUp;

 onvector(5,1);

end;

begin

Field(22,17);

for i:=1 to 3 do begin

 figura;

end;  

end.