Дан файл чисел проверить записаны ли числа в порядке возрастания?
вот код, только не знаю верно ли написан алгоритм?
Цитата:
var pos:Tstudent;
begin
seek(F,0);
while not eof(F) do
read (f,pos);
if pos.age+1 > pos.age then
showmessage('Yes')
else
showmessage('No');
|