![Как посчитать количество шагов на отрезке [-pi; pi] с шагом pi\8. составить программу на языке паска](/tpl/images/0552/4889/a76b7.jpg)
Код написан на Pascal (только умоляю, будь аккуратен с отступами и табуляцией). Также прикрепил вывод компилятора (красным обвёл то, что нужно именно тебе, на остальное не обращай внимания). Также код есть в текстовом фале (его тоже прикрепил):
uses crt;
const n=10;
var m : array[1..n] of integer;
i, max, max_i : integer;
begin
for i:= 1 to n do
begin
m[i]:= random(-10) + 10;
write(m[i],' ');
end;
max:= m[1];
max_i:= 1;
for i:= 1 to n do
begin
if (max > m[i]) then
begin
max:= m[i];
max_i:= i;
end;
end;
writeln();
writeln('max = m[',max_i,']');
writeln('max = ',max);
end.
![с информатикой! Массив задан следующим образом: Const N=10; Var m : array[1..N] of integer; Найти зн](/tpl/images/1255/6212/8126b.jpg)
m=5
n=32
Объяснение:
Это если:
m:15
n:1
на самом деле:
m:=15
n:=1
и не считая отсутствующих точек с запятой (;)
m = 15
n = 1
Действия в цикле:
1) m = m - 2
2) n = n * 2
Цикл работает пока ложно (нет) условие: m < 6
Вывод m
Вывод n
m = 15 n = 1
Действия в цикле:
1) m = m - 2 = 15 - 2 = 13
2) n = n * 2 = 1 * 2 = 2
13 < 6 (нет)
m = 13 n = 2
Действия в цикле:
1) m = m - 2 = 13 - 2 = 11
2) n = n * 2 = 2 * 2 = 4
11 < 6 (нет)
m = 11 n = 4
Действия в цикле:
1) m = m - 2 = 11 - 2 = 9
2) n = n * 2 = 4 * 2 = 8
9 < 6 (нет)
m = 9 n = 8
Действия в цикле:
1) m = m - 2 = 9 - 2 = 7
2) n = n * 2 = 8 * 2 = 16
7 < 6 (нет)
m = 7 n = 16
Действия в цикле:
1) m = m - 2 = 7 - 2 = 5
2) n = n * 2 = 16 * 2 = 32
5 < 6 (да)
Цикл прекращает работу
m = 5 n = 32
Оператор writeln выведет на экран сначала текст в кавычках без них (m=), а затем значение переменной (5).
