Ну эта вроде должна пройти на АВС:
Цитата:
Сообщение от Евгений1240
File16.Дан файл целых чисел. Найти количество содержащихся в нем серий (т. е. наборов последовательно расположенных одинаковых элементов). Например, для файла с элементами 1, 5, 5, 5, 4, 4, 5 результат равен 4.
|
Код:
Var
f:file of Byte;
i,a1,a2,Num_of_Ser:Byte;
Begin
Randomize;
Num_of_Ser:=0;
Assign(f,'D:\fff');
Rewrite(f);
For i:=1 to 20 do
begin
a1:=Random(8);
write(f,a1);
write(a1,' ');
end;
Close(f);
Writeln;
Writeln;
a1:=9;
Reset(f);
Repeat
read(f,a2);
if a2<>a1 then Inc(Num_of_Ser);
a1:=a2;
Until EoF(f);
Close(f);
Writeln('Number of series is ',Num_of_Ser);
Readln
End.