Осуществите сдвиги элементов в массиве так, чтобы выполнялось указанное условие.
14. Дан одномерный массив размера K и натуральное число P (P < K). Осуществите: а) сдвиг элементов массива влево на P позиций, при котором исходное значение P первых элементов массива будет потеряно. Последние P элементов полученного массива замените на среднее арифметическое утерянных зна-чений элементов; б) циклический сдвиг элементов массива влево на P позиций.

Pascal

Объяснение:

В большинстве случаев, когда человек получает информацию, он также её обрабатывает и сохраняет

нюхая цветы получаю информацию в виде запаха, пробуя еду получаю информацию в виде вкуса, слушая лекцию получаю информацию, читая книгу получаю информацию, на мастер классах учусь новому

читаю книгу я также обрабатываю полученную информацию; слушаю лекцию я также обрабатываю полученную информацию; решая кроссворд я обрабатываю информацию, что бы решить вопрос; решая домашнее задание я обрабатываю задания; играя в игру я обрабатываю информацию, что бы делать какие-то действия.

Читая книгу я также и запоминаю прочитанное; слушаю лекцию я также запоминаю услышанное; нюхая цветы я запоминаю их запах; кушая еду я запоминаю её вкус; когда я учу стих, я запоминаю информацию

Рассказывая стих я передаю слушателям информацию; объясняя задачу я передаю информацию слушателям; общаясь с кем то я передаю информацию; уча брата говорить я передаю ему информацию; участвуя в опросе я передаю информацию

var
x1, x2, y1, y2, r1, r2, d, b, x3, x4, y3,y4,x,y, h, a: real;

begin
readln(x1, y1, r1, x2, y2, r2);
d := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
if (d > r1 + r2) or (d < abs(r1 - r2)) then writeln('No intersection point')
else if (x1 = x2) and (y1 = y2) then if (r1 = r2) then writeln('Infinity') else writeln('No intersection point')

else begin
b := (r2 * r2 - r1 * r1 + d * d) * 0.5 / d;
a := d - b;
h := sqrt(abs(r1 * r1 - sqr(b)));
x := x1 + (x2 - x1) * a / d;
y := y1 + (y2 - y1) * a / d;
X3 := X - (Y - Y2) * H / B;
Y3 := Y + (X - X2) * H / B;
X4 := X + (Y - Y2) * H / B;
Y4 := Y - (X - X2) * H / b;
writeln(x3, ' ', y3);
if(x3<>x4)or(y3<>y4) then
writeln(x4, ' ', y4);
end;
end.