Задача 13
Создать файл целых положительных чисел (признак окончания ввода –отрицательное число). Проверить, упорядочены ли элементы файла целых чисел по возрастанию.
Решение
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | var a, b : integer; F : file of integer; uporyad : boolean; begin Assign(F, 'file3'); Rewrite(F); repeat write ('Vvedite chislo '); readln(a); if a>=0 then write(F,a); until a<0; Close (F); uporyad := true; Reset (F); read (F, a); while not eof(F) do begin read(F, b); if b>=a then a:= b else uporyad:= false; end; Close(F); if uporyad then writeln ('Elementy uporyadocheny') else writeln ('Elementy NEuporyadocheny'); end. |
Блок-схема