Пожалуйста решите до конца на паскале

Question

1 Заменить первый элемент, кратный 5, нулем. 
2.Заменить элементы с нечетными номерами на квадрат их но¬мера. 
3.Из элементов массива D сформировать массив А того же размера по правилу: если номер четный, то Aj=Dj*2, если нечетный, то Aj=Dj/i.

Юля Izuminka · Accepted Answer

До конца? Легко. А где начало?

Ольга Баранова · Answer

Жди. Сейчас решу )))

Program Massivy;
Uses Crt;
Label 1;
Const
n=15;
x=10;
y=30;
Var
a: Array [1..n] Of Real;
d: Array [1..n] Of Integer;
i: Integer;
Begin
Randomize;
WriteLn('<< Исходный D >>');
For i:=1 To n Do
Begin
d:=Random(y-x)+x;
Write(d,' ');
End;
WriteLn;
WriteLn('>> Измененный массив D <<');
For i:=1 To n Do
If i Mod 2<>0 Then d:=Sqr(i);
For i:=1 To n Do
Begin
If d Mod 5=0 Then
Begin
d:=0;
Goto 1;
End;
End;
1: For i:=1 To n Do Write(d,' ');
WriteLn;
WriteLn('Сформированный массив А');
For i:=1 To n Do
Begin
If i Mod 2=0 Then a:=d*2 Else a:=d/i;
Write(a:2:2,' ');
End;
End.

Дмитрий Кондраков · Answer

var i,n:integer; d:array[1..100]of integer; a:array[1..100]of real; 
begin 
write('Введите размер массива: '); readln(n); 
writeln('Введите значения элементов массива, разделяя их пробелами'); 
for i:=1 to n do read(d[ i]); readln; 
for i:=1 to n do if d[ i] mod 5=0 then begin d[ i]:=0; break end; 
for i:=1 to n do if odd(i) then d[ i]=i*i; 
for i:=1 to n do write(d[ i]:8); writeln; 
for i:=1 to n do if odd(i) then a[ i]=d[ i]*2 else a[ i]:=d[ i]/i; 
for i:=1 to n do write(a[ i]:8:2); writeln; 
readln 
end.