Помогите пож разобраться с заданием!!!
1)ввести массив А6
2)сформировать массив по формуле В6,Bi=cosi
3)в массиве А переставить местами элементы,имеющие четные и нечетные номера(массив А1)массив В упорядочить в порядке возрастания значений элементов(массив В1)Найти массив.
.....у меня получается полный бред..(не до конца)решала по аналогии..,ничего не получ,помогите плиз!!!!!А ЗАВТРА уже сдавать.. (IMG:style_emoticons/default/sad.gif)
program massiv;
uses crt;
var A:array[1..6] of real;
B:array[1..6] of real;
i,j,k:integer;
begin
clrscr;
writeln('A[6]');
for i:=1 to 6 do
read(A[i]);
writeln;
for i:=1 to 6 do
read(B[i]);
for i:=1 to 6 do
begin
for j:=1 to 7*(-1)*i+1 do
if A>A-1
then K:=A
A:=A-1
A-1:=R
write(A[i],' ');
end;
for j=7*(-1)i+1
if B<B-1
then K:=B
B:=B-1
B-1:=R
///////////////////////////////////................ (IMG:style_emoticons/default/newconfus.gif)