Объяснение:
Начало
S:=0;Присваиваем переменной s значение 0.
for i := 1 to 10 do begin Write('Введите ', i, '-й элемент массива '); Readln(B[i]); end;Цикл для i от 1 до 10 (пробегаемся по массиву): выводим сообщение о том, какой по очереди элемент нужно ввести и считываем его значение с клавиатуры.
Write('Введите число k '); Readln(k);Выводим сообщение о том, что нужно ввести число k и считываем его значение с клавиатуры.
For i:=1 to 10 do If b[i]>k then s:=s+1;Пробегаемся по массиву и смотрим: если какой-то элемент больше чем k, то увеличиваем s на 1.
Write(‘Количество элементов’, s);Выводим на экран значение s.
Конец.
сместиться в точку (23,23)
опустить перо
сместиться на вектор (0,7)
сместиться на вектор (7,0)
сместиться на вектор (0,-7)
сместиться на вектор (-7,0)
Объяснение:
Т.к. сторона квадрата 7 единиц и в команде сместиться на вектор ( ?,7) уже указано, что мы смещаемся на 7 единиц по оси y, то смещение по оси x должно быть равно 0. (Рисуем строго вверх, т.к. углы квадрата 90°)
Т.к. сторона квадрата 7 единиц и в команде сместиться на вектор (?,0) уже указано, что мы смещаемся на 0 единиц по оси y, то смещение по оси x должно быть равно 7. (Рисуем строго вправо, т.к. углы квадрата 90°)
Т.к. сторона квадрата 7 единиц и в команде сместиться на вектор (0,?) уже указано, что мы смещаемся на 0 единиц по оси x, то смещение по оси y должно быть равно -7. (Рисуем строго вниз, т.к. углы квадрата 90° и вверх мы уже рисовали)
При движении по оси x вправо и по оси y вверх координаты команды сместиться на вектор - положительные.
При движении по оси x влево и по оси y вниз координаты команды сместиться на вектор - отрицательные.
