На бесконечном поле имеется стена, состоящая из 5 последовательных отрезков, расположенных змейкой: вниз, вправо, вверх, вправо, вниз. все отрезки неизвестной длины. робот находится в клетке, расположенной слева от верхнего края первой вертикальной стены. на рисунке указан один из возможных способов расположения стен и робота (робот обозначен буквой «р»напишите для робота алгоритм, закрашивающий все клетки, расположенные левее первого и ниже второго отрезков стены и ниже четвёртого и левее пятого отрезков стены. робот должен закрасить только клетки, удовлетворяющие данному условию. например, для выше рисунка робот должен закрасить следующие клетки (см. рисунок).при исполнении алгоритма робот не должен разрушиться, выполнение алгоритма должно завершиться. конечное расположение робота может быть произвольным. алгоритм должен решать для любого допустимого расположения стен и любого расположения и размера проходов внутри стен.
Ответы
Const n=10; var a: array[1..n] of integer; i,s,min: integer; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i]: 4); end; writeln; s: =0; min: =a[1]; for i: =1 to n do begin if a[i]> 0 then s: =s+a[i]; if a[i]< min then min: =a[i]; end; writeln('s = ',s,' min = ',min); for i: =1 to n do if a[i]> 0 then a[i]: =s else if a[i]< 0 then a[i]: =a[i]-min; writeln('измененный массив: '); for i: =1 to n do write(a[i]: 4); writeln; end. пример: исходный массив: 9 -3 -5 7 1 5 -6 9 -8 7 s = 38 min = -8 измененный массив: 38 5 3 38 38 38 2 38 0 38
Const n=10; var a: array[1..n] of integer; i,s,p: integer; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i]: 4); end; writeln; s: =0; p: =1; for i: =1 to n do begin if i mod 2 = 0 then s: =s+a[i]; if a[i] mod 3 = 0 then p: =p*a[i]; end; writeln('s = ',s,' p = ',p); end. пример: исходный массив: -4 -9 2 -2 4 6 -8 -5 7 -5 s = -15 p = -54
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: