Массивы

[fatix]

1. Заменить первый элемент массива, кратный 5, нулем.

2. Заменить элементы массива с нечетными номерами на квадраты их номеров.

3. Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле Ai = Di2, а если нечетный, то по формуле Ai = Di / i.
Язык программирования Delphi. Помогите решить.

[phasha]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i:Integer;
a:array[1..10] of Real;

 begin
   for i:=1 to 10 do begin
     write('a[',i,']= ');Readln(a[i]);
   end;
   for i:=1 to 10 do begin
     if Frac(a[i]/5) = 0 then begin
     a[i]:=0;
     break;
     end;
   end;
   for i:=1 to 10 do Writeln('a[',i,']=',a[i]:3:3);
       Readln;
end.

это первое

[phasha]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i:Integer;
a:array[1..10] of Real;

 begin
   for i:=1 to 10 do begin
     write('a[',i,']= ');Readln(a[i]);
   end;
   for i:=1 to 10 do begin
     if not Odd(i)  then begin
     a[i]:=Sqr(i);

     end;
   end;
   for i:=1 to 10 do Writeln('a[',i,']=',a[i]:3:3);
       Readln;
end.

это второе

[phasha]

3. Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле Ai = Di2, а если нечетный, то по формуле Ai = Di / i.
Язык программирования Delphi
Вы проходили динамические массивы? а то задание не конкретное какое то
если нет то вот третье

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i:Integer;
a:array [1..10] of Real;
d:array [1..10] of Real;
 begin


   for i:=1 to 10 do begin
     write('D[',i,']= ');Readln(d[i]);
   end;
   for i:=1 to 10 do begin
     if not Odd(i)  then begin
     a[i]:=d[i]*2;
     end else
     a[i]:=d[i]/i;
   end;
   for i:=1 to 10 do Writeln('D[',i,']=',d[i]:3:3);
   for i:=1 to 10 do Writeln('A[',i,']=',a[i]:3:3);
       Readln;
end.

[fatix]

да проходили. задание такое в методичке

[phasha]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,j:Integer;
a:array  of Real;
d:array  of Real;
 begin
    Write('vvedi razmernost ');Readln(j);
    j:=j-1;
      SetLength(d,j);
    SetLength(a,j);
   for i:=0 to j do begin
     write('D[',i+1,']= ');Readln(d[i]);
   end;
   for i:=0 to j do begin
     if not Odd(i)  then begin
     a[i]:=d[i]*2;
     end else
     a[i]:=d[i]/i;
   end;
   for i:=0 to j do Writeln('A[',i+1,']=',a[i]:3:3);

       Readln;
end.

держи