Задачи в Delphi. Помогите пожалуйста.

[KaKy3oo]

Добрый день, помогите пожалуйста написать код для задач в программе Delphi.
1.Год является високосным, если его год кратен 4, однако из кратных 100 високосными являются, лишь кратные 400, например, 1700, 1800 и 1900-не високосные годы, 2000-високосный. Дано натуральное число n. Определить, является ли високосным год с таким номером.
2.Даны целые числа a1, a2,….a10. Верно ли, что их сумма есть четное число.
3. Дан массив вещественных чисел. Выяснить верно ли, что количество положительных элементов не превышает 5.
4. В двумерном массиве L (M, N) первый элемент поменять с последним и найти сумму отрицательных элементов. Массив заполнить случайным образом. Исходный и измененный массивы вывести на экран в виде матрицы

[Serge_Bliznykov]

1. см http://www.programmersforum.ru/showp...39&postcount=4

2.

if not odd(a1+a2+a3+a4+a5+a6+a7+a8+a9+a10) 
then WriteLn('Верно') 
else WriteLn('Не верно');

3.

cnt:=0; for i:=1 to n do if a[i]>0 then Inc(cnt);
if cnt<=5
then WriteLn('Верно') 
else WriteLn('Не верно');

[newerow1989]

4.

const m=8;
      n=6;
var i,j,s:integer;
    l:array[1..m,1..n] of integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         l[i,j]:=-10+Random(21);
         Write(l[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=l[1,1];
   l[1,1]:=l[m,n];
   l[m,n]:=s;
   s:=0;
   For i:=1 to m do
      For j:=1 to n do
         If l[i,j]<0 then
            s:=s+l[i,j];
   Writeln(s);
   For i:=1 to m do
   begin
      For j:=1 to n do
         Write(l[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

[IliaIT]

я тоже придумал велосипед индуского кода для даты с поверкой на 29 число виндой.

procedure TForm2.Button1Click(Sender: TObject);
var
  str_l:string;
begin
  DateVal('29.02.'+Edit1.Text,str_l);
  Label1.Caption:=str_l;
end;
procedure DateVal(str1:string; var str2:string);
var
  DT_l:TDateTime;
  fs: TFormatSettings;
begin
  fs.DateSeparator := '.';
  fs.ShortDateFormat:= 'DD.MM.YYYY';
  fs.LongDateFormat:= 'DD.MM.YYYY';      //
  if TryStrToDate(str1,DT_l,fs) then
  str2:='високосный'
  else
  str2:='не високосный'
end;

[Аватар]

велосипед индуского кода

угу, это в одну строчку делается

  if DayOfTheMonth(EncodeDate(n,3,1)-1)=29 then str2:='высокосный' else str2:='не высокосный';

[Serge_Bliznykov]

Сообщение от Аватар

угу, это в одну строчку делается

Коллеги, ну, если так, тогда, может быть, не заниматься извращением и написать просто с вызовом функции из SysUtils:

if IsLeapYear(n) then str2:='высокосный' else str2:='не высокосный';

[Аватар]

Ну для этого нужно еще знать, что есть такая функция. Не знал, посыпаю голову пеплом )) Но все равно извращения с датой в символьном формате куда менее симпатично, чем предложенное мной извращение ))