1.Начало
2.Сделать ход на 2 клетки вправо
3.Сделать ход вверх на 1 клетку
4.ход на 2 клетки влево
5.Ход на 2 клетки вверх
6.ход на 4 клетки вправо
7.ход на 2 клетки вниз
8.Ход на 1 клетку вправо
9.ход на 1 клетку вверх)
У тебя не правильно сделан алгоритм
// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(35,1,38);
a.PrintLn;
Writeln(a.Where(x->x mod 5=0).Aggregate((x,y)->x*y))
end.
Тестовое решение:
35 1 3 3 1 19 31 38 31 32 33 10 7 22 21 1 18 17 19 32 21 18 31 30 10 2 23 34 33 23 12 25 12 5 30
393750000
На pascal abc
uses crt;
var
a, b, c : real;
begin
write('Введите три числа (через пробел): ');
readln(a, b, c);
if (a>=0) and (a<10) and (b>=0) and (b<10) and (c>=0) and (c<10)
then writeln ((a+b+c)/3)
else writeln ('Число не принадлежит промежутку [0;10)');
<span>end.</span>