Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.
var a,b:integer;
begin
readln(a,b);
if(a mod 2 = 0) and (a > b) then
writeln('Наибольшее, четное число: ',a)
else begin
if(b mod 2 = 0) and (b > a) then
writeln('Наибольшее четное число: ',b)
else
writeln('Не найдено');
end;
end.
Int n;
Console.WriteLine("Введите возраст");
n = Convert.ToInt32(Console.ReadLine());
switch (n)
case 1:
Console.WriteLine("{0} год", n);
case 2:
Console.WriteLine("{0} года", n);
И так дальше расписываешь, можешь немного сократить код и запихнуть цифры, где год или лет одинаковы.