Ответы
Ответ дал:
0
Уж сколько раз твердили миру... чтобы языки указывали ._. Ну, ниже представлен пример для PascalABC
var
a: array of integer := (9, 8, 7, 6, 7, 4, 3, 2, 1, 0);
i: byte;
b: boolean := true;
begin
for i := 1 to length(a) - 1 do
if (a[i] > a[i-1]) then
b := false;
writeln(b);
end.
var
a: array of integer := (9, 8, 7, 6, 7, 4, 3, 2, 1, 0);
i: byte;
b: boolean := true;
begin
for i := 1 to length(a) - 1 do
if (a[i] > a[i-1]) then
b := false;
writeln(b);
end.
Ответ дал:
0
const
n = 10;
var
a: array[1..n] of integer := (1, 2, 3, 6, 4, 5, 9, 7, 8, 10);
i: integer;
begin
i := 0;
repeat
i := i + 1
until (i = n) or (a[i] > a[i + 1]);
if a[i] > a[i + 1] then
Writeln('Нарушение на элементах ', i, ',', i + 1, ': ', a[i], '>', a[i + 1])
end.
Тестовое решение:
Нарушение на элементах 4,5: 6>4
n = 10;
var
a: array[1..n] of integer := (1, 2, 3, 6, 4, 5, 9, 7, 8, 10);
i: integer;
begin
i := 0;
repeat
i := i + 1
until (i = n) or (a[i] > a[i + 1]);
if a[i] > a[i + 1] then
Writeln('Нарушение на элементах ', i, ',', i + 1, ': ', a[i], '>', a[i + 1])
end.
Тестовое решение:
Нарушение на элементах 4,5: 6>4
Вас заинтересует
9 лет назад
9 лет назад