Var a: array [1..10] of integer; max, min, k, i: integer; begin max : = -15; k : = 0; min : = 0; for i : = 1 to 10 do begin a[i] : = random(30) - 15; write(a[i], ' '); if (a[i] > = max) then begin max : = a[i]; inc(k); end else k : = 0; if (a[i] < min) and (a[i] > = 0) then min : = a[i]; end; writeln; writeln(max, ' - максимальный элемент; ', k, ' - количество максимумов; ', min, ' - минимальный положительный элемент.'); end.
АлександровнаВладлен243
19.07.2022
Запишем этот алгоритм, и на место команды1 поставим команду сместиться на (a, b). (здесь a, b -это нужные нам координаты смещения в команде1) повтори 2 разсместиться на (a, b) сместиться на (3, 2)сместиться на (2, 1)конецсместиться на (−6, −4)выполнение этого алгоритма к следующим смещениям по оси икс: a + 3 + 2 + a + 3 + 2 - 6 так как нам известно, что в результате этих смещений чертёжник вернулся в исходную точку, то это значит что сумма всех смещений равна нулю. можем записать уравнение и найти a: a + 3 + 2 + a + 3 + 2 - 6 = 0 2a + 4 = 0 2a = -4 a = -4 / 2 = -2 (нашли смещение по x в команде1) далее, делаем то же самое для смещения по y: выполнение этого алгоритма к следующим смещениям по оси игрек: b + 2 + 1 + b + 2 + 1 - 4 составляем уравнение: b + 2 + 1 + b + 2 + 1 - 4 = 0 2b + 2 = 0 2b = -2 b = -2 / 2 = -1 (нашли смещение по y в команде1) значит, вместо команды1 нужно поставить команду, указанную в варианте ответа 1) сместиться на (-2, -1)