A: Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент. Пример:
Массив:
1 2 3 4 5 6
Результат:
6 1 2 3 4 5
B: Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй половине.
Пример:
Массив:
1 2 3 4 5 6
Результат:
3 2 1 6 5 4
Язык: Паскаль
program aip;
var
fltA,fltB,fltB2:real;
code:integer;
function ip(A:real):real;
var A1:string;
begin
write('Введите значение А= ');
//
repeat
readln(A1);
val(A1,A,code);
if (code<>0) then writeln('no');
until (A>0);
//
ip:=A;
end;
begin
fltA:=ip(fltA);
if abs(1+sin(2*fltA)) < 0.000001 then begin
writeln('Delenie na nol v pervoy formule');
end else begin
fltB:= ((1-2*sin(fltA)*sin(fltA))/(1+sin(2*fltA)));
writeln('Первая формула ',fltB:5:5);
end;
if abs(1+tan(fltA)) < 0.000001 then begin
writeln('Delenie na nol vo vtoroy formulte');
end else begin
fltB2:= ((1-tan(fltA))/(1+tan(fltA)));
writeln('Вторая формула ',fltB2:5:5);
end;
end.