Сдвиг ВПРАВО. Пример:
<span>исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 </span>
<span>результат: 0 4 -5 3 10 -4 -6 8 -10 1 </span>
<span>2. Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить циклический сдвиг ВПРАВО на 4 элемента. Пример: </span>
<span>исходный массив: 4 -5 3 10 -4 -6 8 -10; 10 57 </span>
<span>результат: 10 5 7; 4 -5 3 10 -4 -6 8 -10 вот</span>
Орел-зрение
волк-обаняние
летучие мыши-зрение
дельфин-слух
крот-осязание
+1. В цехе трудятся 100 рабочих.
-2. В цехе трудятся 50 слесарей.
+3. В цехе трудятся 25 фрезеровщиков.
-4. Все токари могут иметь 3 разряд.
+5. Все рабочие третьего разряда могут быть токарями.
-6. Все рабочие третьего разряда могут быть фрезеровщиками.
-7. Все слесари могут иметь пятый разряд.
-8. Все токари могут иметь четвертый разряд.
Program t2; var a: integer; Begin write ('Введите колличество суток'); read (a);writeln ('Колличество часов ', a*24);writeln ('Колличество минут ',a*24*60);writeln ('Колличество секунд ',a*24*60*60); end.
Var i,y,a,b: single;
begin
writeln('Выберите действие: 1)y=(a+b)^2; 2)y=a^2-b^2; 3)y=1/(a+b)');
read(i);
if i=1 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a+b)*(a+b));
end
else begin
if i=2 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a*a)-(b*b));
end
else begin
if i=3 then begin
writeln('Введите a и b');
read(a,b);
write('y=',1/(a+b));
end;
end;
end;
<span>end.</span>
