Использование частных случаев в условиях
Флаг в задачах Задача. Определить место первого четного элемента в массиве
Программа: const n=10; Var m:array[1..n]of integer ; f:integer; pch:integer; Begin { заполнить и вывести исходный массив } i:=1; f:=0; {значения элементов нечетные} while ( i<=n ) and (f=0) do if not odd(m[i]) then f:=1 {нашли четное значение} else i:=i+1; writeln; pch:=i; write(место первого четного -,pch) ; End.
Проверка на упорядоченность Задача. Проверить, упорядочен ли массив по возрастанию
Программа: const n=10; Var m:array[1..n]of integer ; f:integer; pch:integer; Begin { заполнить и вывести исходный массив } i:=1; f:=0; {упорядочен} while ( i<n ) and ( f=0) do if m[i]>m[i+1] then f:=1 {не упорядочен} else i:=i+1; writeln; if f=0 then write(упорядочен ) else write(нет) ; End.End.