Найти среднее арифметическое значение элементов заданного массива размером 15. преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение turbo pascal

Var    a: array[1..15] of real;   r: real;   n, i: integer; begin   // заполнение   for i: =1 to 15 do   begin     a[i] : = i;     write(a[i], ' ');   end;         for i: =1 to 15 do   begin     r : = r + a[i];     n : = n + 1;   end;   r : = r / n;   writeln;   writeln('среднее ариф. ', r);         // вывод   for i : = 1 to 15 do   begin     a[i] : = a[i] - r;     write(a[i], ' ');   end; end.

1.  var  n,i,k,sum,g: integer; begin readln(n); g: =n; while n< > 0 do begin   g: = g div 10;   k +=1; end; for i: =1 to k do begin g: = n mod 10; sum: = sum + g; n: =n div 10; end; if sum> 10 then writeln('верно') else ('неверно'); end. 2. var  n,i,k,p,h,g: integer; begin readln(n); g: =n; while n< > 0 do begin   g: = g div 10;   k +=1; end; p: =n mod 10; n: =n div 10; for i: =1 to k-1do begin g: = n mod 10; if g = p then   h += 1; n: =n div 10; end; writeln(h); end. 3. const n=10; var a: array[1..n]of integer; i,sum: integer; begin a[n]: =0; for i: =1 to 9 do readln(a[i]); for i: =1 to n do    sum: =sum+a[i]; writeln(sum); end. 4. var n: integer; begin readln(n); while n< > 0 do begin n: =n div 10; k += 1; end; if k = 4 then writeln('число четырехзначное') else writeln('число не  четырехзначное'); end. 5. var a: array[1..10]of integer; i: byte; begin for i: =1 to 10 do readln(a[i]); for i: =1 to 10 do begin   if a[i] = 2 then writeln('да есть'); break; end; end.

Типо надеюсь это то

Объяснение:

Начало работы. Движения

В первой строке необходимо добавить:

import turtle

Мы командуем черепашкой простыми словами на английском языке. left, right – поворот налево и направо, forward и backward – движение вперед и назад. В программе каждое действие – вызов функции из модуля turtle. Простая программа:

import turtle

turtle.right(90)

turtle.forward(100)

turtle.left(90)

turtle.backward(100)

Что произошло:

Поворот направо на 90 градусов

Движение вперед на 100 шагов (пикселей)

Поворот налево на 90 градусов

Движение назад на 100 шагов

Не похоже на черепашку, это ползающая стрелка! Исправим это:

import turtle

turtle.shape("turtle")

turtle.fd(100)

turtle.exitonclick()

Отлично! Теперь это черепашка, пусть и монохромная. Дополнительно, функция exitonclick() позволяет закрыть окно и завершить выполнение программы кликом мышкой по окну.

А еще можно использовать сокращенные названия функций: fd(100) вместо forward(100), rt вместо right, lt вместо left, bk вместо backward.

Геометрические фигуры

Рисуем простые геометрические фигуры:

Прямая: просто движение вперед

Квадрат: вперед, поворот на 90 градусов и так 4 раза. Повторение команд – значит, можно выполнить их в цикле for!

Пятиконечная звезда: вперед, поворот на 144 градусов и так 5 раз.

Если мы хотим выполнить инструкции n раз, мы пишем их в цикле

for i in range(n):

Далее идут инструкции с отступом в 4 пробела. Код с отступами – тело цикла. Когда цикл завершается, отступы больше не ставятся.

Рисуем квадрат:

import turtle

square = turtle.Turtle()

square.shape("turtle")

for i in range(4):

square.forward(100)

square.right(90)

turtle.exitonclick()