1. Дан массив. Заменить элементы с нечетными номерами на квадраты…

Вот так пойдет? Дан массив. Заменить элементы с нечетными номерами на квадраты их номеров.program tt; uses wincrt; type Tmas=array[1… 100] of real; var d,a: Tmas; i,j,n: byte; procedure enter_d (n: byte; var d: Tmas); begin randomize; for i: =1 to n do begin d[i]: =random (40); write (d[i]: 0:0,'); end; writeln; end; procedure form_a (n: byte; d: Tmas; var a: Tmas); begin for i: =1 to n do begin if odd (i)=true then a[i]: =d[i]/i else a[i]: =sqr (d[i]); end; end; procedure show_a (a: Tmas); begin for i: =1 to n do write (a[i]: 0:2,'); end; end; BEGIN ClrScr; writeln ('Введите размер массива: '); readln (n); enter_d (n,d); form_a (n,d,a); show_a (a); END.